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ENTROPY  GENERATION  IN  THERMALLY  FULLY  DEVELOPED 


ELECTRO-OSMOTIC  HEAT  TRANSFER  IN  MICROCHANNELS 

ABSTRACT 

An  analysis  has  been  provided  for  the  entropy  generation  in  thermally  fully  developed 
electro-osmotically  generated  flow  in  a  parallel  plate  microchannel  and  a  circular 
microtube  in  terms  of  Brinkman  number,  Peclet  number,  relative  duct  radius, 
dimensionless  joule  heating  parameter,  dimensionless  viscous  heating  parameter  as  well 
as  physical  properties  of  the  fluid  under  imposed  constant  wall  heat  flux  boundary 
condition.  Such  a  flow  is  established  not  by  an  imposed  pressure  gradient,  but  by  a 
voltage  potential  gradient  along  the  length  of  the  tube.  The  momentum  and  energy 
equations  are  solved  to  get  the  velocity  and  temperature  distributions  and  the  exact 
solution  for  the  dimensionless  entropy  generation  number  have  been  determined 
analytically  for  both  geometries.  This  analysis  assumes  no  pressure-driven  component  to 
the  velocity  field  and  constant  fluid  properties.  Five  different  variables  namely,  (i) 
dimensionless  joule  heating  parameter,  (ii)  dimensionless  viscous  heating  parameter,  (iii) 
relative  duct  radius,  (iv)  Peclet  number  and  (v)  Brinkman  number  have  been  identified 
from  the  dimensionless  entropy  generation  number  equation.  Various  plots  for 
dimensionless  entropy  generation  number,  Bejan  number,  Irreversibility  ratio,  entropy 
generation  due  to  fluid  friction  etc.  are  generated  using  MATLAB  and  analyzed  for  both 
the  configurations. 
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CHAPTER  I 


INTRODUCTION  AND  LITERATURE  REVIEW 


Microfluidic  transport  has  found  importance  in  a  number  of  emerging 
technologies  in  micropower  generation,  chemical  separation  processes,  cell  analysis  and 
other  biomedical  diagnostic  techniques.  At  physical  scales  of  order  100  pm,  generating 
fluid  motion  in  the  tube  poses  a  considerable  challenge.  Conventional  pressure-driven 
flow  technology  requires  significant  pressures,  and  while  micropumps  exist  which  are 
capable  of  delivering  such  pressures  [1],  they  are  difficult  to  manufacture  and  maintain, 
and  lack  the  precise  control  that  is  often  needed  in  micro  fluidic  applications  [2],  Electro- 
osmotic  flow  may  provide  a  viable  alternative  to  pressure-driven  liquid  flow  at  the 
microscale  with  better  flow  control  and  no  moving  parts.  Several  investigators  have 
reported  on  electro-osmotic  pump  systems  [3-4]. 

Electro-osmosis  is  the  bulk  movement  of  liquid  relative  to  a  stationary  surface  due 
to  an  externally  applied  electric  field,  and  was  first  observed  and  reported  by  Reuss  [5] 
nearly  two  centuries  ago.  Most  solid  substances  will  acquire  a  relative  electric  charge 
when  in  contact  with  an  aqueous  electrolytic  solution,  which  in  turn  influences  the  charge 
distribution  in  the  solution.  Ions  of  opposite  charge  (counterions)  to  that  of  the  surface  are 
attracted  towards  the  surface  and  ions  of  the  same  charge  (coions)  are  repelled  from  the 
surface  as  shown  in  Fig  la  [6]. 
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(a) 


(b) 


Figure  la,  b  Schematic  illustration  of  electro-osmotically  generated  flow 


The  net  effect  is  the  formation  of  a  region  close  to  the  charged  surface  called  the 
electric  double  layer  [EDL]  in  which  there  is  an  excess  of  counter  ions  over  coions,  and 
which  are  distributed  in  a  diffuse  manner  [7],  The  charge  distribution  in  the  fluid 
therefore  falls  from  its  maximum  near  the  wall  to  a  zero  charge  in  the  fluid  core.  The 
thickness  of  the  EDL  is  characterized  by  the  Debye  length,  which  is  the  wall-normal 
distance  over  which  the  net  charge  has  decreased  from  the  charge  magnitude  near  the 
tube  surface  to  1/e  (37%)  of  the  surface  charge.  The  positively  charged  cations  and 
solvent  molecules  strongly  adsorbed  at  the  wall  remain  stationary  under  the  influence  of 
an  electric  potential  in  the  streamwise  direction,  while  the  mobile  cations  in  the  EDL  very 
near  the  tube  walls  will  migrate  toward  the  cathode  due  to  the  excess  charge  in  the  layer. 
This  gives  rise  to  a  concentrated  fluid  body  force  near  the  channel  or  tube  walls  as 
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illustrated  in  Fig  lb.  Viscous  shear  forces  transmitted  from  the  EDL  to  the  channel  or 
tube  center  pull  the  core  fluid  towards  the  cathode  as  well.  The  resulting  electro-osmotic 
flow  velocity  distribution  is  a  function  of  the  ratio  of  the  hydraulic  radius  to  the  Debye 
length. 

The  fluid  dynamics  of  electro-osmotically  generated  flow  are  significantly 
different  from  traditional  pressure-driven  flow,  and  therefore,  the  thermal  transport 
dynamics  are  expected  to  be  quite  different  as  well.  The  applied  driving  voltage  gradient 
and  its  induced  electric  conduction  current  establish  Joule  heating  in  the  fluid,  resulting  in 
volumetric  energy  generation  therein  [6],  The  magnitude  of  the  thennal  energy  source 
has  significant  influence  on  the  temperature  distribution  and  heat  transfer. 

Several  analytical  studies  have  appeared  in  the  literature  describing  the 
hydrodynamics  of  fully-developed  electro-osmotic  flow  through  circular  tubes  and 
rectangular  channels.  Specifically,  several  early  papers  report  on  electro-osmotic  velocity 
distributions  and  the  associated  momentum  transport  in  capillaries  as  a  function  of 
channel  diameter-to-Debye  length  ratio  [8,  9].  More  recent  hydrodynamic  studies  have 
explored  the  effects  on  the  velocity  field  due  to  streamwise  gradients  in  the  electrical 
conductivity  [10],  the  transient  response  of  the  velocity  field  to  a  suddenly  applied 
voltage  gradient  [11]  and  the  entry  region  flow  field  development  [12].  Additionally, 
some  experimental  studies  have  reported  on  the  velocity  profile  characteristics  associated 
with  fully-developed  electro-osmotic  flow  in  very  long  circular  tubes  and  rectangular 
channels  [13,  14]. 

With  regard  to  characterization  of  the  convection  heat  transfer  associated  with 
electro-osmotic  flow,  relatively  little  prior  work  has  appeared  in  the  literature.  Li  and 
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coworkers  [15]  have  explored  electrokinetic  effects  induced  in  a  pressure-driven  flow  on 
the  frictional  and  heat  transfer  characteristics  for  both  round  and  rectangular 
microchannels.  There  also  exists  some  early  work  exploring  the  effect  of  volumetric 
energy  generation  on  thermal  development  in  channels  under  pressure-driven  flow 
conditions  [16].  Knox  [17]  has  explored  the  influence  of  Joule  heating  on  efficiency  in 
capillary  electrophoresis.  The  fully-developed  thermal  transport  for  constant-property 
electro-osmotic  flow  in  circular  microtubes  and  parallel  plate  microchannels  was 
previously  explored  for  the  case  of  negligible  viscous  heating  [18].  Additionally, 
thermally  fully-developed  heat  transfer  has  been  explored  for  combined  electro-osmotic 
and  pressure  driven,  constant-property  flow  in  a  circular  microtube  under  imposed 
constant  wall  heat  flux  boundary  condition  [19]. 

No  studies  have  appeared  in  the  literature  that  specifically  address  the  entropy 
generation  for  purely  electro-osmotically  driven  flow  for  both  the  configurations,  parallel 
plate  microchannel  and  circular  microtube.  The  present  work  has  been  undertaken  in 
order  to  study  the  entropy  generation  for  fully-developed  electro-osmotic  flow  in  parallel 
plate  microchannel  and  circular  microtube  for  constant  wall  heat  flux  boundary  condition. 
The  results  are  then  analyzed  for  both  the  configurations  and  conclusions  are  derived. 
This  analysis  assumes  no  pressure-driven  component  to  the  velocity  field  and  constant 
fluid  properties. 
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CHAPTER  II 

MATHEMATICAL  FORMULATION  AND  ANALYSIS  FOR 
PARALLEL  PLATE  MICROCHANNEL 

Consider  a  fully  developed  electro-osmotically  driven  flow  of  an  incompressible 
fluid  in  a  parallel  plate  microchannel  of  infinite  width  with  coordinates  as  defined  in 
Figure  2a. 

Momentum  transport: 

For  steady  flow  without  an  applied  pressure  gradient  the  streamwise  momentum 
equation  reduces  [18]  to 

1  d  f  „  du~)  £  d  f  „d\i/\d(j) 

H - v  —  + - y  — - —  =  0  (1) 

yn  dy  y  dy)  yn  dy\  dy  J  dx 

Where,  n  =  0.  //  is  the  fluid  viscosity,  £  is  the  dielectric  constant,  (f>  is  the  applied 
potential  field  and  i//(y)  is  the  access  charge  distribution. 
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Parallel  plate  channel 


Figure  2a  Definition  of  coordinate  system  for  Parallel  plate  microchannel 

For  low  wall  potential,  the  Debye-Huckel  linearization  is  valid  [7],  and  the  excess 
charge  distribution  may  be  expressed  explicitly  as  a  function  only  of  the  zeta  potential, 
the  Debye  length  A  and  the  wall-normal  coordinate  y.  For  such  a  scenario,  the 
momentum  equation  (1)  may  be  solved  subject  to  boundary  conditions  reflecting  no  slip 
at  the  wall  and  zero  shear  stress  at  the  centerline,  the  fully-developed  electro-osmotic 
velocity  distribution  for  the  parallel  plate  can  be  expressed  as  [2,7] 

—  =  1  -Y  -Z-ez  -eYZ  (Y  <  l)  (2) 

^  max 

where,  Y  =  y/a  is  the  normalized  wall-normal  coordinate  and  Z  =  a/  A  is  the  relative 
duct  radius.  The  Debye  length  A  is  a  function  of  the  electro-chemical  characteristics  of 
the  liquid  /  tube  interface,  and  rather  difficult  to  measure.  It  may  be  estimated  from  the 

relation  A  =  {sRT/2F2z2cY2  where  s ,  T ,  R  and F  are  the  fluid  permittivity,  absolute 
temperature,  universal  gas  constant,  and  Faraday’s  constant  respectively.  The  parameters 
z  and  c  are  the  valence  number  and  the  average  molar  concentration  of  ions  in  the  liquid 
solution. 
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Taking  partial  derivative  of  equation  (2)  with  respect  to  Y . 


=  Z  e  iZ  -  Z  -  e  z  where  u  = 
dY  u . 


We  can  also  write  du/  as, 

/dy 


a  u 

d - un 

du  _  Mmax 

dv  p,  y 

o--a 


du  [  <3« 


Sy  a  fST 


du  i  w  ‘ 


/-T-2  -2  Y  Z  o  72  -Z-YZ  .  ry2  -2  Z  ) 

(z  -e  -2  Z  -e  +Z  -e  j 


Energy  equation: 

Given  steady  hydrodynamically  fully  developed  flow  with  constant 
thennophysical  properties,  the  energy  equation  simplifies  [18]  to 


d~T  J_d_  ndT]_u_dT__s_ 
dx2  yn  dy  '  dy  y  a  dx  k 


where,  n  =  0  for  the  channel  flow.  T  is  the  local  temperature,  a  is  the  thennal  diffusivity, 
k  is  the  thermal  conductivity  and  s  is  the  volumetric  Joule  heating. 

With  an  imposed  constant  heat  flux  boundary  condition  ( q"w  =  constant), 


8T  dT 

—  =  — —  =  constant 
dx  dx 


Furthermore,  an  energy  balance  on  the  fluid  yields 


dT  4  -q"w  |  5 

dx  p  u  •  C  ■  Dh  p  -u  C 
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In  the  above  equation,  Dh  is  the  channel  hydraulic  diameter,  q"w  is  the  wall  heat  flux 


and  C  is  the  fluid  specific  heat. 
Performing  square  of  equation  (5), 


f 

\dxj 


l6-q:2+s2-Dh2+8-q:-s-Dh 
p2  -u2-C2  -D2 


(6) 


Now,  the  general  expression  for  the  temperature  distribution  for  parallel  plate 
microchannel  [6]  is, 

0  =  {l  +  S-[l  +  Sv-  F(Z)]} •  A2  (7,  Z)+S-  [A,  (7) -  Sv  •  A 3  •  (7,  Z)\  (7) 

where,  S  =  dimensionless  joule  heating  parameter,  Sj,  =  dimensionless  viscous  heating 
k  ■  T 

parameter  and  6  = -  =  normalized  temperature.  Also, 

a '  C 


F(Z) 


O  -2Z 

3  •  e 
2  Z 


o  -2-Z 

2  •  e 
Z 


+  e 


-2  Z 


1 

H - 

2-Z 


My) 


it-y) 


a2(y,z ) 


Ze 


-z  V 


7  7 

+  - - Z-e  z 

2  6 


and 


A(y,z) 


~(e-2YZ  -l)+2(e-z  -e-^r+1))l 

(  o  -2-Z  X 

1  e~2  Z  +  3 ' 6 

-7 

4  v  /v  / 

l  2-Z  J 

(8) 

(9) 

(10) 


(11) 


Substituting  the  values  of  equations  (8),  (9),  (10)  and  (1 1)  into  equation  (7),  we  have 
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'j  —2-Z  o  ^-2-Z  i 

1  +  S-  1  +  SV-  — - — —  +  e-2Z+  — 

2-Z  Z  2-Z 


1  fl  yf i  ,  e  Z  Z-e-z]  Z2  73  _z 

— —  II  —  e  -Y  1  + - + - Z-e  + 

Z2  v  ’  Z  2  2  6 


f  r  ,,2  s\  (  ,  r  i 
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9  7-  A  '  '  v 

A  V  z  72  ^  L4 


e-z  -e-z(r+1) 


-2-z  3  •  e 

e  + - 


Taking  partial  derivative  of  equation  (12)  with  respect  to  Y , 


=  Term  1 


Where 


T  ,  e“yz  e“z  Z  •  e~z  Z-Y^e ~z  \ 

Term 1= - 1 - 1 - 1 -Y - + 

Z  Z  2  2 


n  -Y-Z  r~r  -Z  n  -7  —  Z 

o  -e  _  o  -e  &  -Z  -  e 

- 5 - + - 

Z  Z  2 


+  5-T- 


5  -Z2-Z  •  e~z 
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Performing  square  of  equation  (13)  using  Mathematica, 


d0\  r  -12 

—  =  [I  e  run  \ 

dY 
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Also,  we  know, 


6  = 


k-T 

a  ■  C 


r8TY  ( a  ■  q”  V  ( 80 A 


ydYj 


a  ■  q 


V 


J 


\dYj 


Substituting  value  of  equation  (14)  into  equation  (16), 
a'qA  \Terml\ 


( dTy  f 


ydYj 


V 


dT 


We  can  also  write  —  as, 
dY 


dT  _  dT 

dY  dY -a  -  / 
/a 


(dT  V 

2 

=  a 

' dT ' 

[dY] 

Ut  J 

Comparing  equations  (17)  and  (18), 


(15) 


(16) 


(17) 


(18) 


(19) 


Flow  and  heat  transfer  processes  inside  the  plate  are  irreversible.  The  non¬ 
equilibrium  conditions  arise  due  to  the  exchange  of  energy,  mass  and  momentum  within  the 
fluid  and  at  solid  boundaries,  thus  resulting  in  entropy  generation.  A  part  of  the  entropy 
production  is  due  to  the  heat  transfer  in  the  direction  of  finite  temperature  and  the  other  part 
of  entropy  production  arises  due  to  the  fluid  friction. 

The  equation  for  the  entropy  generation  per  unit  volume  is  given  by 
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( arV  i 
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2 
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T0 

+ 
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In  the  above  equation, 


M 


r  du^ 

V5Vy 


friction  Component 


dT_ 

\dxj 


+ 


d_T_ 


(20) 


and 


heat  flux  component 


here,  — - 

T0 


r  dT^ 


\dxj 


=  axial  heat  flux  component  and 


r  dT  A 


/ 


=  transverse  heat  flux 


component 

Multiplying  both  sides  by  k  -T2  / q"J  to  get  the  value  of Ns  , 
M'k-T0 


r  k  -Tr2^ 


I  smG=Ns=- 


V  Vw  J 


Ns  =  Nf  +  Nc  +  NY 


r  du  ^ 

2  k2 

+  0 

(dT ' 

I2  k1 

+ 

( 

U.vJ 

q" 

1  w 

q": 

In  the  above  equations, 

Ns  =  dimensionless  entropy  generation  number 


M'k-T0 


N*=-  _.2 


f  du  ^ 


=  entropy  generation  due  to  the  fluid  friction 


AC  = 


k 2  ( ST A 


C  q"2 


(21) 

(22) 


\dx  j 


(  'yrri  \  2 


AC  = 


k 2  [ST 


Y  q"2 


=  entropy  generation  due  to  heat  transfer  in  the  axial  direction 


entropy  generation  due  to  heat  transfer  in  the  transverse  direction 


Substituting  values  from  equations  (3),  (6)  and  (19)  into  equation  (21), 
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Brinkman  number  (Br)  and  Peclet  number  (Pe)  are  defined  as, 


(23) 
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and 
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Pe  = 


p  u  C  Dh  -q'l 


(24) 


Substituting  values  of  Rrinktnan  number  (Br)  and  Peclet  number  (Pe)  from  equation  (24) 
into  equation  (23), 
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Here, 
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Irreversibility  Ratio  (® ):  - 

In  our  case,  both  the  fluid  friction  and  the  heat  transfer  contribute  to  the  rate  of  entropy 
generation.  In  order  to  assess  which  one  among  the  fluid  friction  and  heat  transfer 
dominates,  a  criterion  known  as  irreversibility  ratio  is  defined  by  the  following  equation. 
Irreversibility  ratio  ( ®  )  is  the  ratio  of  entropy  generation  due  to  the  fluid  friction  to  the 
total  entropy  generation  due  to  heat  transfer. 

Fluid  Friction  Component 

Axial  Heat  Flux  Component  +  Transverse  Heat  Flux  Component 


O  = 


Nc  +  Ny 


(26) 


ForO  <  ®  <  1 ,  the  heat  transfer  dominates  the  irreversibility  ratio  and  the  fluid  friction 
dominates  when  ®  >  1 .  The  case  where  both  the  heat  transfer  and  the  fluid  friction  have 
the  same  contribution  for  the  entropy  generation  is  characterized  by  ®  =  1 . 

Bejan  number  (Be):  - 

Bejan  number  is  the  ratio  of  heat  transfer  irreversibility  to  the  total  irreversibility  due  to 
fluid  friction  and  heat  transfer. 


Be  = 


Heat  Flux  Components 


Fluid  Friction  Component  +  Heat  Flux  Components 


Nr  +  Ny 
Be=  c  Y 


NF  +  Nc  +  Ny 


Be  = 


1 


1  +  ® 


(27) 


Bejan  number  ranges  from  0  to  1.  Be  =  0  is  the  limit  where  the  irreversibility  is 
dominated  by  fluid  frictional  effects  and  Be  =  1  corresponds  to  the  limit  where  the 
irreversibility  due  to  heat  transfer  by  virtue  of  finite  temperature  differences  dominates. 
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Similarly,  we  define  the  following  dimensionless  ratios: 


Fluid  Friction  Component 


Fluid  Friction  Component  +  Heat  Flux  Components 


Gf  = 


N , 


Nf  +  Nc  +  Ny 


and 


Heat  Flux  Components 


'  Heat  Flux 


Fluid  Friction  Component  +  Heat  Flux  Components 


NC  +  Ny 

= 


Nf  +  Nc  +  Ny 


(28) 


(29) 
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CHAPTER  III 


MATHEMATICAL  FORMULATION  AND  ANALYSIS  FOR 
CIRCULAR  MICROTUBE 

Consider  a  fully  developed  electro-osmotically  driven  flow  of  an  incompressible 
fluid  in  a  circular  micro  tube  with  coordinates  defined  in  Figure  2b. 


Momentum  transport: 

For  a  steady  flow  without  an  applied  pressure  gradient  the  streamwise  momentum 
equation  reduces  [18]  to 


1  d  (  n  du\  s  d  dv/\d 6 

p - r  —  H - r  -  —  =  0 

r"  dry  dr)  rn  dr\  dr  )  dx 


(30) 


where,  n  =  1  for  circular  microtube.//  is  the  fluid  viscosity,  s  is  the  dielectric  constant, 
(f>  is  the  applied  potential  field  and  i//(r)  is  the  access  charge  distribution. 
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Circular  tube 


Figure  2b  Definition  of  coordinate  system  Circular  microtube 


For  low  wall  potential,  the  Debye-Huckel  linearization  is  valid  [7],  and  the  excess 
charge  distribution  may  be  expressed  explicitly  as  a  function  only  of  the  zeta  potential, 
the  Debye  length  A  and  the  radial  coordinate  r.  For  such  a  scenario,  the  momentum 
equation  may  be  solved  subject  to  boundary  conditions  reflecting  no  slip  at  the  wall  and 
zero  shear  stress  at  the  centerline,  yielding  fully-developed  electro-osmotic  velocity 
distribution  for  the  circular  microtube,  as  [2,7] 


u  _l  I0{Z-R) 

Ueo  h  (Z) 


(31) 


where,  R  =  r/a  is  the  normalized  radial  coordinate,  Z  =  a/ A  is  the  Relative  duct  radius, 
I0  is  the  modified  Bessel  function  of  the  first  kind  of  order  0  and  its  general  expression 


[20]  is  given  by, 

2  x4  ^6 

1+  22(1,)2  +  24(2,)4  +  26(3|)6  +'"’ 

For  our  case,  considering  first  few  terms  for  simplification,  equation  (32)  becomes, 


(32) 
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7~  P2  74  £>4 

I0{z-R)  =  1+Z  R  +— —  (33) 

The  Debye  length  Z  is  a  function  of  the  electro-chemical  characteristics  of  the  liquid  / 
tube  interface,  and  rather  difficult  to  measure.  It  may  be  estimated  from  the  relation 

A  =  [sRT / 2F1z1c)//'2  where  a  ,T  ,R  and  I7  are  the  fluid  permittivity,  absolute  temperature, 
universal  gas  constant,  and  Faraday’s  constant  respectively.  The  parameters  z  and  c  are 
the  valence  number  and  the  average  molar  concentration  of  ions  in  the  liquid  solution. 
Substituting  value  from  equation  (33)  into  equation  (3 1), 


u  _16-ZZ  +Z* -16-Z2  -R2 -Z4 -R4 
(  _  Z4  + 16  •  Z2  +  64 


Taking  partial  derivative  of  the  above  equation  with  respect  to  R  , 


du  -32-Z2 -R-4-Z4 -R3  ,  _  u 

—  = - t - t -  where,  u  = - 

dR  Z4  + 16  •  Z2  +  64  u 


We  can  also  write  as, 


-  u 

o - u 

fa  _  Mmax 

dr  p  r 

o  —  -a 


du_  =  uj^_(  du_ 
dr  a  \dR 


1024 -R2 -Z4  +256-R4  Z6  +16-R6  -Z8 
4096  +  2048  •  Z2  +  384  •  Z4  +  32  •  Z6  +  Z8 


Energy  equation: 

Given  steady  hydrodynamically  fully  developed  flow  with  constant 
thennophysical  properties,  the  energy  equation  simplifies  [3]  to 
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d2T  1  d 
-  +  - 


dx  r"  dr 


V 


dT 

dr 


u  dT  s 


a  dx  k 

where,  n  =  1  for  the  circular  micro  tube.  T  is  the  local  temperature,  a  is  the  thermal 
diffusivity,  k  is  the  thermal  conductivity  and  s  is  the  volumetric  Joule  heating. 

With  an  imposed  constant  heat  flux  boundary  condition  ( q"w  =  constant), 


GT  dT  „ 

—  = - =  Constant 

dx  dx 


Furthermore,  an  energy  balance  on  the  fluid  yields 


dT 


■  +  ■ 


dx  p  -u  ■  C  ■  Dh  p-u  -C 
In  the  above  equation,  Dh  is  the  channel  hydraulic  diameter,  q"w  is  the  wall  heat  flux 

and  C  is  the  fluid  specific  heat. 

Perfonning  square  of  equation  (35), 

l6-q:2+s2-Dh2+&-q:-s-Dh' 


(35) 


rdT ^ 

2  ( 

\dx  j 

V 

p2 -u2  C1  -Dh 


(36) 


Now,  the  general  expression  for  the  temperature  distribution  for  circular  microtube  [6]  is, 
G  =  {2  +  S  ■  [1  +  Sv  ■  F{Z)]}  ■A2(R,Z)+S-[A](R)- Sv  ■  A3  ■  (R,z)]  (37) 

where,  S'  =  dimensionless  joule  heating  parameter,  Sv=  dimensionless  viscous  heating 


parameter  and  6  = 


k-T 

a‘(ll 


normalized  temperature.  Also, 


,  S  iHz)  2  Ip) 

n(z)  z  /„(z) 


(38) 


(39) 
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A,(R,Z)  =  -Z  1 


h{R-z) 

h(z) 


(40) 


and 


A,{R,Z)  = 


If(z)~ 

1 

+ 

iXR-z)  h(R-z)  /,(z)' 
•  - ; - - - - - — 

i;(z)_ 

2  Z 

Il(z)  I,(Z). 

1 

~il(R-z)  . 

R2 

lf{RZ)  If(RZ) 

2  •  Z2 

il(z) 

2 

If(z)  If(z) 

(41) 


In  the  above  equations,  /,  is  the  modified  Bessel  function  of  the  first  kind  of  order  1  and 
its  general  expression  [5]  is  given  by, 


3  5  7 

XXX 
-  +  — - +  - 


7j(x)  =  — +  ,  . 

2  23  •  l!-2!  25  -  2!-3!  27  -  3!-4! 


+ ..., 


(42) 


For  our  case,  considering  first  few  terms  for  simplification,  equation  (42)  becomes, 

/i(R.z)  =  ^  +  ^l  +  ^l  (43) 

1V  ’  2  16  384 

Substituting  the  values  of  equations  (38),  (39),  (40),  (41)  and  (43)  into  equation  (37), 


e  =  \ 

[2  +  5- 

f 

1 +sv- 

1 

r 

V 

r  If  (z)  2  /,(z) 

if(z)  ZI„(Z) 


1 


+-(r2-\) 

4V  ’ 


-S„ 


\  Ifjz) 

n  (z\ 


2  Z 


R 


2  Z 


if{RZ) 

il(z) 


,  h(R-z) 

h(z) 


I,(R-Z)-I0(R-Z )  /,(z) 

If(z)  /.(z). 

7,2(«Z)  If(R-Z) 


R2 

T 


*o(z)  *o(z) 


(44) 

Taking  partial  derivative  of  equation  (44)  with  respect  to  R  and  talking  square  using 
Mathematica, 
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Also,  we  know, 


'dT\  (a- q'l\  (drf 
ydR)  l  k  J  {dR; 

Substituting  value  of  equation  (45)  into  equation  (47), 
=  •  Term  2  2 

V  k  J 

We  can  also  write  as, 


(46) 

(47) 

(48) 


Comparing  equations  (48)  and  (49), 


(49) 


(50) 


Flow  and  heat  transfer  processes  inside  the  tube  are  irreversible.  The  non-equilibrium 
conditions  arise  due  to  the  exchange  of  energy,  mass  and  momentum  within  the  fluid  and  at 
solid  boundaries,  thus  resulting  in  entropy  generation.  A  part  of  the  entropy  production  is 
due  to  the  heat  transfer  in  the  direction  of  finite  temperature  and  the  other  part  of  entropy 
production  arises  due  to  the  fluid  friction. 
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The  equation  for  the  entropy  generation  per  unit  volume  for  a  circular  microtube  is  given  by 


s„,  =J£_(  du) 

°  T\drj 


+  ■ 


^  dr}2  +fdT^ 


\dx j 


ydr  j 


(51) 


In  the  above  equation, 

du 


£. 

T0  l  dr  j 


=  friction  component 


dT_ 

\dxj 


+ 


dT 
ydr  j 


heat  flux  component 


here,  — r 
T 


component 


fdT\ 

2 

k 

=  axial  heat  flux  component  and 

' dT N 

ydx  J 

T  2  1 

1  0 

v  dr  , 

=  radial  heat  flux 


Multiplying  both  sides  by  k-T02  / q"J  to  get  the  value  of  Ns  , 


rk-T2^ 


S'c=Ns  = 


M'k  -T0 


V  'Iw  j 


du 

V  dr  j 


+  - 


d_T_ 

\dx  j 


+  ■ 


dT_ 

\dr  j 


ns=nf+nc+nr 


(52) 

(53) 


In  the  above  equations, 

Ns  =  Dimensionless  entropy  generation  number 


nf=^±T 

r  ft  2 


du 

\dr  j 


=  entropy  generation  due  to  the  fluid  friction 


Nr  = 


C  q"2 


N„  = 


ST 

\dxj 

dT 


R  q "2 

J  w 


V  dr  j 


entropy  generation  due  to  heat  transfer  in  the  axial  direction 


entropy  generation  due  to  heat  transfer  in  the  radial  direction 
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Substituting  values  from  equations  (34),  (36)  and  (50)  into  equation  (52), 


Ns  = 


ti  max  '  JU  '  k  '  Tq 


tr  2  2 


1024 -R1  -Z4  +256-iT  Zb  +\6-R6  Z8 
4096  +  2048  •  Z2  +384- Z4  +  32-Z6  +Z8 

1 6-q”w2  +s2  -Dh2  +Z-q'w-s-Dh\+[Term  2] 


2  —  2  2  r\  2  0  2 

p  -u  C  Dh  -qw 


+ 


(54) 

Taking  values  of  Brinkman  number  (Br)  and  Peclet  number  (Pe)  from  equation  (24)  and 
substituting  into  equation  (54), 

1024-i?2  Z4  +256-i?4  -Z6  +  16-P6  Z8 


Ns=Br- 


1 


Pe2 


4096  +  2048  Z2  +384-Z4  +32-Z6  +Z8 
16  ■  q"J  +s2-D2+  8  •  q"w  • s  -Dh  ]+  (Term  2 )2 


here. 


(55) 


Nf  =  Br  ■ 


1024  R2  Z4  +  256-P4  -Zb  +16-R6  -Z8 
4096  +  2048  •  Z2  +  384  •  Z4  +  32  •  Z6  +  Z8 


iV 


and 


\6-q"J  +s2 -Dh2  +S-q"w-s-Dh 


Nr  =Term  2 


Irreversibility  Ratio  ( <t» ):  - 

In  the  case  of  circular  microtube, 

_  Fluid  Friction  Component 

Axial  Heat  Flux  Component  +  Radial  Heat  Flux  Component 
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(56) 


O  = 


Nc 


Nc  +  Nr 


Bejan  number  (Be):  - 

In  the  case  of  circular  microtube, 

Heat  Flux  Components 


Be 


Fluid  Friction  Component  +  Heat  Flux  Components 


Be  =  N°+N* 


N  F  +  Nc  +  Nr 


Be  = 


1 


1  +  ® 


(57) 


Similarly,  we  can  define  the  following  dimensionless  ratios: 

Fluid  Friction  Component 


_ 

^  Friction 


Fluid  Friction  Component  +  Heat  Flux  Components 


Gf  = 


Nf  +  Nc  +  Nr 


Axial  Heat  Flux  Components 


Axial 


Fluid  Friction  Component  +  Heat  Flux  Components 


0C-  N< 


Nf  +  Nc  +  Nr 


and 


Radial  Heat  Flux  Components 


Radial 


Fluid  Friction  Component  +  Heat  Flux  Components 


r  _  Nr 


N  F  +  Nc  +  Nr 


(58) 


(59) 


(60) 
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CHAPTER  IV 


DISCUSSION  OF  RESULTS 


We  have  presented  an  analysis  for  the  entropy  generation  on  thermally  fully 
developed,  electro-osmotically  generated  flow  for  a  parallel  plate  microchannel  and  a 
circular  microtube  under  constant  wall  heat  flux  boundary  condition.  The  fluid  is 
assumed  to  be  water.  The  velocity  and  the  temperature  distributions  are  obtained 
analytically  from  the  momentum  equation  and  energy  equation  and  used  to  compute  the 
entropy  generation,  dimensionless  entropy  generation  number  ( Ns  ),  Irreversibility  ratio 

( O ),  Bejan  number  ( Be  )  and  the  dimensionless  ratios:  G  fluid  friction  (  G F  )  and  G  heat 
flux  ( Gh ).  These  parameters  are  presented  graphically  for  various  values  of 
dimensionless  joule  heating  parameter  (S),  dimensionless  viscous  heating  parameter 
( Sv ),  relative  duct  radius  ( Z  ),  Brinkman  number  ( Br  )  and  Peclet  number  ( Pe  ). 

Parallel  plate  microchannel: 

Figure  3  shows  the  distribution  of  dimensionless  entropy  generation  number  Ns 
for  constant  values  of  S,  Sv,  Z  and  Pe.  Here,  Brinkman  number  Br  is  chosen  as  a 
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parameter  ranging  from  0.2  to  1.0.  From  the  figure,  it  is  clear  that  Ns  decreases  as  Y 
increases.  Also  as  the  value  of  Br  increases,  Ns  also  increases  for  a  given  value  of  Y. 
Figure  4  displays  the  Bejan  number  Be  versus  Y.  Be  is  the  ratio  of  heat  transfer 
irreversibility  to  the  total  irreversibility  due  to  fluid  friction  and  heat  transfer.  Bejan 
number  increases  as  the  value  of  Y  increases  and  approaches  1 .  Also  as  the  value  of  Br 
increases,  Be  decreases.  In  Figure  5,  Irreversibility  ratio  O  is  plotted  versus  Y. 
Irreversibility  ratio  ®  is  the  ratio  of  entropy  generation  due  to  the  fluid  friction  to  the 
total  entropy  generation  due  to  heat  transfer.  Irreversibility  ratio  decreases  as  the  value  of 
Y  increases  and  approaches  0.  For0<®<l,  the  heat  transfer  dominates  the 
irreversibility  ratio  and  the  fluid  friction  dominates  when  ®  >  1 .  Also  it  can  be  noted  that 
as  the  value  of  Br  increases,  ®  increases.  Figures  6  and  7  show  the  dimensionless  ratios 
Gf  and  G/,  versus  Y.  Looking  at  the  equations  and  plots,  the  plots  for  Gf  are  similar  to  ® 
and  the  plots  for  Gh  are  similar  to  Be.  Figure  8  shows  the  entropy  generation  due  to  fluid 
friction  Nf  versus  Y.  It  can  be  seen  that  as  the  value  of  Br  increases,  Nf  increases  for  a 
particular  value  of  Y.  In  Figure  9,  Nh  is  plotted  versus  Nf.  It  can  be  seen  that  for  a 
particular  value  of  Nf,  the  value  of  N/,  increases  as  Br  increases. 

In  Figure  10,  Ns  is  plotted  versus  Y  for  constant  values  of  S,  Sv,  Br  and  Pe.  Here 
relative  duct  radius  Z  is  chosen  as  a  parameter  ranging  from  6.5  to  15.  It  can  be  seen  that 
as  Z  increases,  Ns  also  increases.  From  Figures  1 1  and  12,  it  is  clear  that  as  the  value  of  Z 
increases,  Be  decreases  and  ®  increases  for  any  value  of  Y.  Figures  15  and  16  show  Nf 
and  Nh  versus  Y  respectively.  It  can  be  seen  here  that  as  Z  increases,  value  of  Nf  and  Nh 
also  increases.  In  Figure  18,  Ns  is  plotted  versus  Y  for  constant  values  of  S,  Sv,  Br  and  Z. 
Here  Peclet  number  Pe  is  chosen  as  a  parameter  ranging  from  2  to  10.  It  can  be  seen  that 
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as  the  value  of  Pe  increases,  Ns  decreases.  From  Figures  19  and  20,  it  is  clear  that  as  the 
value  of  Pe  increases,  Be  decreases  and  <h  increases  for  any  value  of  Y.  Figures  23  and 
24  show  Nc  and  N/t  versus  Y  respectively.  It  can  be  seen  here  that  as  Pe  increases,  value  of 
Nc  and  Nh  decreases.  From  Figure  25  it  can  be  seen  that,  for  any  given  value  of  N/„  Nf 
decreases  with  the  increase  in  the  value  of  Pe. 

In  Figure  26,  Ns  is  plotted  versus  Y  for  constant  values  of  Pe,  Sv,  Br  and  Z.  Here 
dimensionless  joule  heating  parameter  S  is  chosen  as  a  parameter  ranging  from  1  to  5.  It 
can  be  seen  that  as  the  value  of  S  increases,  Ns  also  increases.  From  Figures  27  and  28,  it 
is  clear  that  as  the  value  of  S  increases,  Be  increases  and  O  decreases  for  any  value  of  Y. 
In  Figure  31,  Mi  is  plotted  versus  Y.  It  can  be  seen  here  that  as  S  increases,  value  of  Ni, 
also  increases.  From  Figure  32,  it  can  be  seen  that  for  any  given  value  of  Nh,  as  S 
increases,  Nf  also  increases.  In  Figure  33,  Ns  is  plotted  versus  Y  for  constant  values  of 
Pe,  S,  Br  and  Z.  Here  dimensionless  viscous  heating  parameter  Sv  is  chosen  as  a 
parameter  ranging  from  1  to  5.  It  can  be  seen  that  as  the  value  of  Sv  increases,  Ns 
decreases.  From  Figures  34  and  35,  it  is  clear  that  as  the  value  of  Sv  increases,  Be 
decreases  and  <D  increases  for  any  value  of  Y.  In  Figure  38,  Nf  is  plotted  versus  Y.  It  can 
be  seen  here  that  as  Y  increases,  value  of  Nf  decreases  and  it  is  independent  of  Sv.  We 
can  see  from  Figure  39  that  N/t  decreases  with  increase  in  Sv.  From  Figure  40,  it  is  clear 
that  for  any  given  value  of  Nh,  as  Sv  increases,  Nf  decreases. 

Circular  microtube: 

Figure  41  shows  the  distribution  of  dimensionless  entropy  generation  number  Ns 
for  constant  values  of  S,  Sv,  Z  and  Pe.  Here  Brinkman  number  Br  is  chosen  as  a 
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parameter  ranging  from  0.2  to  1.0.  From  the  figure,  it  is  clear  that  Ns  decreases  as  we  go 
towards  the  center  of  the  tube.  Also  as  the  value  of  Br  increases,  Ns  also  increases  for  a 
given  value  of  R.  Figure  42  displays  the  Bejan  number  Be  versus  R.  As  the  value  of  Br 
increases,  Be  decreases.  In  Figure  43,  Irreversibility  ratio  is  plotted  versus  R.  It  can  be 
noted  that  as  the  value  of  Br  increases,  O  also  increases.  Figures  44  and  45  show  the 
dimensionless  ratios  Gf  and  G,  versus  R.  Figure  46  shows  the  entropy  generation  due  to 
fluid  friction  Nf  versus  R.  It  can  be  seen  that  as  the  value  of  Br  increases,  Nf  increases  for 
a  particular  value  of  R. 

In  Figure  47,  Ns  is  plotted  versus  R  for  constant  values  of  S,  Sv,  Br  and  Pe.  Here 
relative  duct  radius  Z  is  chosen  as  a  parameter  ranging  from  6.5  to  15.  From  Figures  48 
and  49,  it  is  clear  that  as  the  value  of  Z  increases,  Be  decreases  and  ®  increases  for  any 
value  of  R.  Figures  52  and  53  shows  Nf  and  A/,  versus  R  respectively.  It  can  be  seen  here 
that  as  Z  increases,  value  of  Nf  and  A/,  also  increases.  In  Figure  54,  Ns  is  plotted  versus  R 
for  constant  values  of  S,  Sv,  Br  and  Z.  Here  Peclet  number  Pe  is  chosen  as  a  parameter 
ranging  from  2  to  10.  It  can  be  seen  that  as  the  value  of  Pe  increases,  Ns  decreases.  From 
Figures  55  and  56,  it  is  clear  that  as  the  value  of  Pe  increases,  Be  decreases  and  <f> 
increases  for  any  value  of  R.  Figures  59  and  60  shows  Nc  and  A/,  versus  R  respectively.  It 
can  be  seen  here  that  as  Pe  increases,  value  of  Nc  and  A/,  decreases. 

In  Figure  61,  As  is  plotted  versus  R  for  constant  values  of  Pe,  Sv,  Br  and  Z.  Here 
dimensionless  joule  heating  parameter  S  is  chosen  as  a  parameter  ranging  from  1  to  16.  It 
can  be  seen  that  as  the  value  of  S  increases,  Ns  also  increases.  From  Figures  62  and  63,  it 
is  clear  that  as  the  value  of  S  increases,  Be  increases  and  <D  decreases  for  any  value  of  R. 
In  Figure  67,  A,  is  plotted  versus  R.  It  can  be  seen  here  that  as  S  increases,  value  of  A/, 
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also  increases.  In  Figure  68,  Ns  is  plotted  versus  R  for  constant  values  of  Pe,  S,  Br  and  Z. 
Here  dimensionless  viscous  heating  parameter  Sv  is  chosen  as  a  parameter  ranging  from  1 
to  16.  It  can  be  seen  that  as  the  value  of  Sv  increases,  Ns  decreases.  From  Figures  69  and 
70,  it  is  clear  that  as  the  value  of  Sv  increases,  Be  decreases  and  <b  increases  for  any 
value  of  R.  We  can  see  from  Figure  74  that  Nh  decreases  with  increase  in  Sv. 

We  have  analyzed  the  nature  of  various  plots  for  thermally  fully  developed, 
electro-osmotically  generated  flow  for  a  parallel  plate  microchannel  and  a  circular 
microtube  under  constant  wall  heat  flux  boundary  condition.  Similar  kind  of  results  can 
be  obtained  by  applying  constant  wall  temperature  boundary  condition. 
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CHAPTER  V 


CONCLUDING  REMARKS 


We  have  considered  thermally  fully  developed  electro-osmotically  generated  flow  which 
is  established  by  a  voltage  potential  gradient  along  the  length  of  a  channel  or  a  tube.  We 
have  provided  an  analysis  for  the  entropy  generated  in  a  parallel  plate  microchannel  and  a 
circular  microtube.  The  boundary  condition  considered  in  our  case  is  constant  wall  heat 
flux.  We  have  identified  five  different  variables  namely,  (i)  dimensionless  joule  heating 
parameter,  (ii)  dimensionless  viscous  heating  parameter,  (iii)  relative  duct  radius,  (iv) 
Peclet  number  and  (v)  Brinkman  number  from  the  dimensionless  entropy  generation 
number  equation.  We  have  analyzed  the  nature  of  various  results  for  dimensionless 
entropy  generation  number,  Bejan  number,  Irreversibility  ratio,  entropy  generation  due  to 
fluid  friction,  entropy  generation  due  to  heat  transfer  in  the  axial  and  transverse  direction 
etc.  and  discussed  the  effects  of  each  of  those  five  variables  on  these  parameters  for  both 
the  configurations.  We  have  coded  the  required  MATLAB  programs  used  to  generate  the 
plots  in  the  present  work  and  they  are  given  in  the  appendix. 
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I. 


Variables  used  in  the  MATLAB  Programs 


Variables  used  in  equations 

Variables  used 
in  programs 

Dimensionless  joule  heating  parameter  ( S ) 

S 

Dimensionless  viscous  heating  parameter  ( Sv ) 

S_v 

Relative  duct  radius  ( Z ) 

z 

Peclet  number  ( Pe  ) 

Pe 

Wall  heat  flux  ( q"v) 

q 

channel  hydraulic  diameter  ( Dh  ) 

Dh 

Entropy  generation  due  to  heat  transfer  in  the  transverse 

direction  (  NY  ) 

Ny 

Entropy  generation  due  to  heat  transfer  in  the  axial  direction  ( Nc  ) 

Nc 

Entropy  generation  due  to  heat  transfer  in  the  axial  and  transverse 

Nh 

direction  ( N  H  ) 

Entropy  generation  due  to  fluid  friction  (  N F  ) 

Nf 

Dimensionless  entropy  generation  number  ( Ns  ) 

Ns 

Irreversibility  ratio  ( O ) 

Phi 

Bejan  number  ( Be  ) 

Be 

G  axial  ( Gc  ) 

Gc 

G  fluid  friction  (  GF  ) 

Gf 
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G  heat  flux  ( GH  ) 

Gh 

G  radial  (  G R ) 

Gr 

Brinkman  number  ( Br  ) 

Br 

Normalized  wall-normal  coordinate  (7  =  y /a) 

Y 

Normalized  radial  coordinate  (R  =  r/a) 

R 
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FIGURES  FOR 

PARALLEL  PLATE  MICROCHANNEL 
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Figure  3. 


Ns  Vs  Y  for  S=l;  Sv=l;  Z=l;  Pe=10  and  Br=0.2,  0.4,  0.6,  0.8  &  1.0 


S=1;  Sv=1;  2=1;  Pe=10 


Figure  4.  Be  Vs  Y  for  S=l;  Sv=l;  Z=l;  Pe=10  and  Br=0.2,  0.4,  0.6,  0.8  &  1.0 

S=1;  Sv=1;  Z=1;  Pe=10 
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Figure  5.  <P  Vs  Y  for  S=l;  Sv=l;  Z=l;  Pe=10  andBr=0.2,  0.4,  0.6,  0.8  &  1.0 


S=1;  Sv=1;  2=1 ;  Pe=10 


Figure  6.  Gf  Vs  Y  for  S=l;  Sv=l;  Z=l;  Pe=10  and  Br=0.2,  0.4,  0.6,  0.8  &  1.0 


S=1;  Sv=1;  Z=  1;  Pe=10 
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Figure  7. 


Gh  Vs  Y  for  S=l;  Sv=l;  Z=l;  Pe=10  and  Br=0.2,  0.4,  0.6,  0.8  &  1.0 


S=1;  Sv=1;  Z=  1;  Pe=10 


Figure  8.  Nf  Vs  Y  for  S=l;  Sv=l;  Z=l;  Pe=10  and  Br=0.2,  0.4,  0.6,  0.8  &  1.0 

S=1;  Sv=1;  Z=1;  Pe=10 
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Figure  9.  Nh  Vs  Nf  for  S=l;  Sv=l;  Z=l;  Pe=10  and  Br=0.2,  0.4,  0.6,  0.8  &  1.0 


S=1;  Sv=1;  2=1;  Pe^lO 


Figure  10.  Ns  Vs  Y  for  S=l;  Sv=l;  Br=l;  Pe=10  and  Z=6.5,  7.5,  10,  12.5  &  15 


Y 
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Figure  11.  Be  Vs  Y  for  S=l;  Sv=l;  Br=l;  Pe=10  and  Z=6.5,  7.5,  10,  12.5  &  15 


S=1;  Sv=1;  Br=1;  Pe=10 


Figure  12.  O  Vs  Y  for  S=l;  Sv=l;  Br=l;  Pe=10  and  Z=6.5,  7.5,  10,  12.5  &  15 

S=1;  Sv=1;  Br=1;  Pe=10 
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Figure  13.  GfVs  YforS=l;  Sv=l;  Br=l;  Pe=10  and  Z=6.5,  7.5,  10,  12.5  &  15 


Figure  14. 


S=1;  Sv=1;  Br=1;  Pe=10 


Gh  Vs  Y  for  S=l;  Sv=l;  Br=l;  Pe=10  and  Z=6.5,  7.5,  10,  12.5  &  15 


S=1;  Sv=1;  Br=1;  Pe=10 
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Figure  15.  Nf  Vs  Y  for  S=l;  Sv=l;  Br=l;  Pe=10  and  Z=6.5,  7.5,  10,  12.5  &  15 


Y 


Figure  16.  Nh  Vs  Y  for  S=l;  Sv=l;  Br=l;  Pe=10  and  Z=6.5,  7.5,  10,  12.5  &  15 


S=1;  Sv=1;  Br=1;  Pe=10 
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Figure  17.  Nh  Vs  Nf  for  S=l;  Sv=l;  Br=l;  Pe=10  and  Z=6.5,  7.5,  10,  12.5  &  15 


S=1;  Sv=1;  Br=1 ;  Pe=10 


Figure  18.  Ns  Vs  Y  for  S=l;  Sv=l;  Z=l;  Br=l  andPe=2,  4,  6,  8  &  10 


S=1;  Sv=1;  Z= 1;  Br=1 
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Figure  19. 


Be  Vs  Y  for  S=l;  Sv=l;  Z=l;  Br=l  andPe=2,  4,  6,  8  &  10 


S=1;  Sy=1;  2=1;  Br=1 


Figure  20.  Vs  Y  for  S=l;  Sv=l;  Z=l;  Br=l  andPe=2,  4,  6,  8  &  10 


S=1;  Sv=1;  Z=1;  Br=1 
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Figure  2 1 . 


Gf  Vs  Y  for  S=l;  Sv=l;  Z=1 ;  Br=l  and  Pe=2,  4,  6,  8  &  10 


Y 


Figure  22.  Gh  Vs  Y  for  S=l;  Sv=l;  Z=l;  Br=l  and  Pe=2,  4,  6,  8  &  10 

S=1;  Sv=1;  Z=1;  Br=1 
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Figure  23.  Nc  Vs  Y  for  S=l;  Sv=l;  Z=l;  Br=l  and  Pe=2,  4,  6,  8  &  10 


S=1;  Sw=1;  Z=1;  Br=1 


Figure  24.  Nh  Vs  Y  for  S=l;  Sv=l;  Z=l;  Br=l  and  Pe=2,  4,  6,  8  &  10 

S=1;  Sv=1;  Z=  1;  Br=1 
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Figure  25.  Nh  Vs  Nf  for  S=l;  Sv=l;  Z=l;  Br=l  and  Pe=2,  4,  6,  8  &  10 


S=1;  Sw=1;  2=1;  Bt=1 


Figure  26.  Ns  Vs  Y  for  Sv=l;  Z=l;  Br=l;  Pe=2.5  and  S=l,  2,  3,  4  &  5 


Sv=1;  Z=1;  Br=1;  Pe=2.5 
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Figure  27.  Be  Vs  Y  for  Sv=l;  Z=l;  Br=l;  Pe=2.5  and  S=l,  2,  3,  4  &  5 


Sv=1;  Z=  1;  Br=1 ;  Pe=2.5 


Figure  28.  Vs  Y  for  Sv=l;  Z=l;  Br=l;  Pe=2.5  and  S=l,  2,  3,  4  &  5 


Sv=1;  Z=1;  Br=1;  Pe=2.5 
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Figure  29. 


Gf  Vs  Y  for  Sv=l;  Z=l;  Br=l;  Pe=2.5  and  S=l,  2,  3,  4  &  5 


Sv=1;  Z=  1;  Br=  1 ;  Pe=2.5 


Figure  30.  Gh  Vs  Y  for  Sv=l;  Z=l;  Br=l;  Pe=2.5  and  S=l,  2,  3,  4  &  5 

Sv=1;  Z=  1;  Br=1;  Pe^2.5 
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Figure  3 1 . 


Nh  Vs  Y  for  Sv=l;  Z=l;  Br=l;  Pe=2.5  and  S=l,  2,  3,  4  &  5 


Sv=1;  1=1;  Br=1;  Pe=2.5 


Figure  32.  Nh  Vs  Nf  for  Sv=l;  Z=l;  Br=l;  Pe=2.5  and  S=l,  2,  3,  4  &  5 


Sv=1;  1=1;  Br=1;  Pe=2.5 
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Figure  33.  Ns  Vs  Y  for  S=1.5;  Z=3.5;  Br=0.5;  Pe=5.5  and  Sv=l,  2,  3,  4  &  5 


S=1.51  Z=3.5;  Br=0.5i  Pe=5.5 


Figure  34.  Be  Vs  Y  for  S=1.5;  Z=3.5;  Br=0.5;  Pe=5.5  and  Sv=l,  2,  3,  4  &  5 


S=1.5j  1=3.5,  Bt^O.Sj  Pe=5.5 
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Figure  35. 


<D  Vs  Y  for  S=1 .5;  Z=3.5;  Br=0.5;  Pe=5.5  and  Sv=l,  2,  3,  4  &  5 


Figure  36. 


S=1.5j  Z=3.5;  Bn=0.£i  Pe=5.5 


Gf  Vs  Y  for  S=1 .5;  Z=3.5;  Br=0.5;  Pe=5.5  and  Sv=l,  2,  3,  4  &  5 


S=1.5j  Z=3.5;  Br=0.5i  Pe=5.5 


52 


Figure  37. 


Gh  Vs  Y  for  S=1.5;  Z=3.5;  Br=0.5;  Pe=5.5  and  Sv=l,  2,  3,  4  &  5 


S=1.5j  Z= 3.5;  Br=0.5i  Pe=5.5 


Figure  38.  Nf  Vs  Y  for  S=1.5;  Z=3.5;  Br=0.5;  Pe=5.5  and  Sv=l,  2,  3,  4  &  5 
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Figure  39. 


Nh  Vs  Y  for  S=1.5;  Z=3.5;  Br=0.5;  Pe=5.5  and  Sv=l,  2,  3,  4  &  5 


S=1.5j  Z= 3.5;  Br=0.Si  Pe=5.5 


Figure  40.  Nh  Vs  Nf  for  S=1.5;  Z=3.5;  Br=0.5;  Pe=5.5  and  Sv=l,  2,  3,  4  &  5 


S=1.5i  Z=3.5;  Br=0.5i  Pe=5.5 
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FIGURES  FOR 
CIRCULAR  MICROTUBE 
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Figure  41.  Ns  Vs  R  for  S=l;  Sv=l;  Z=l;  Pe=10  and  Br=0.2,  0.4,  0.6,  0.8  &  1.0 


S=1;  Sv=1;  Z=1;  Pe=10 


Figure  42.  Be  Vs  R  for  S=l;  Sv=l;  Z=l;  Pe=10  and  Br=0.2,  0.4,  0.6,  0.8  &  1.0 


S=1;  Sv=1 ;  Z=  1;  Pe=10 
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Figure  43.  O  VsR  for  S=l;  Sv=l;  Z=l;  Pe=10  and  Br=0.2,  0.4,  0.6,  0.8  &  1.0 


S=1;  Sv=1;  2=1;  Pe=10 


Figure  44.  Gf  Vs  R  for  S=l;  Sv=l;  Z=l;  Pe=10  and  Br=0.2,  0.4,  0.6,  0.8  &  1.0 


S=1;  Sv=1;  Z=1;  Pe=10 
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Figure  45.  Gr  Vs  R  for  S=l;  Sv=l;  Z=l;  Pe=10  and  Br=0.2,  0.4,  0.6,  0.8  &  1.0 


S=1;  Sy=1;Z=1;  Pe=10 


Figure  46.  Nf  Vs  R  for  S=l;  Sv=l;  Z=l;  Pe=10  and  Br=0.2,  0.4,  0.6,  0.8  &  1.0 


S=1;  Sy=1;  2=1;  Pe=10 
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Figure  47.  Ns  Vs  R  for  S=l;  Sv=l;  Br=l;  Pe=10  and  Z=6.5,  7.5,  10,  12.5  &  15 


x  10 


S=1;  S  =1;  Br=1;  Pe=10 


Figure  48.  Be  Vs  R  for  S=l;  Sv=l;  Br=l;  Pe=10  and  Z=6.5,  7.5,  10,  12.5  &  15 


S=1;  Sv=1;  Br=1;  Pe=10 
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Figure  49.  O  Vs  R  for  S=l;  Sv=l;  Br=l;  Pe=10  and  Z=6.5,  7.5,  10,  12.5  &  15 


S=1;  Sv=1;  Br=1 ;  Pe=10 


Figure  50.  Gf  Vs  R  for  S=l;  Sv=l;  Br=l;  Pe=10  and  Z=6.5,  7.5,  10,  12.5  &  15 


S=1;  Sv=1;  Br=1;  Pe=10 


60 


Figure  51.  Gr  Vs  R  for  S=l;  Sv=l;  Br=l;  Pe=10  and  Z=6.5,  7.5,  10,  12.5  &  15 


S=1;  Sv=1;  Br=1:  Pe=10 


Figure  52.  Nf  Vs  R  for  S=l;  Sv=l;  Br=l;  Pe=10  and  Z=6.5,  7.5,  10,  12.5  &  15 

S=1;  Sv=1;  Br=1;  Pe=10 
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Figure  53.  Nh  Vs  R  for  S=l;  Sv=l;  Br=l;  Pe=10  and  Z=6.5,  7.5,  10,  12.5  &  15 
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Figure  54.  Ns  Vs  R  for  S=l;  Sv=l;  Z=l;  Br=l  and  Pe=2,  4,  6,  8  &  10 


S=1;  Sv=1;  Z=  1;  Br=1 
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Figure  55.  Be  Vs  R  for  S=l;  Sv=l;  Z=l;  Br=l  and  Pe=2,  4,  6,  8  &  10 


S=1;  Sv=1;  Z=1;  Br=1 


Figure  56.  d>  Vs  R  for  S=l;  Sv=l;  Z=l;  Br=l  and  Pe=2,  4,  6,  8  &  10 


S=1;  Sv=1;  Z=1;  Br=1 
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Figure  57.  Gf  Vs  R  for  S=l;  Sv=l;  Z=l;  Br=l  and  Pe=2,  4,  6,  8  &  10 


S=1;  Sv=1;  Z=1;  BN 


Figure  58.  Gr  Vs  R  for  S=l;  Sv=l;  Z=l;  Br=l  and  Pe=2,  4,  6,  8  &  10 

S=1;  Sy=1;  Z=1;  Br=1 
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Figure  59.  Nc  Vs  R  for  S=l;  Sv=l;  Z=l;  Br=l  and  Pe=2,  4,  6,  8  &  10 


S=1;  Sv=1;  2=1;  Br=1 


Figure  60.  Nh  Vs  R  for  S=l;  Sv=l;  Z=l;  Br=l  and  Pe=2,  4,  6,  8  &  10 

S=1;  Sv=1;  Z=1;  Br=1 
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Figure  61. 


Ns  Vs  R  for  Sv=l;  Z=l;  Br=l;  Pe=10  and  S=l,  4,  8,  12  &  16 


Sv=1;  1=1;  Br=1;  Pe=10 


Figure  62.  Be  Vs  R  for  Sv=l;  Z=l;  Br=l;  Pe=10  and  S=l,  4,  8,  12  &  16 


Sv=1;  2=1;  Br=1;  Pe=10 
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Figure  63.  O  VsR  for  Sv=l;  Z=l;  Br=l;  Pe=10  and  S=l,  4,  8,  12  &  16 


Sv=1;  Z= 1;  Br=1;  Pe=10 


Figure  64.  Gf  Vs  R  for  Sv=l;  Z=l;  Br=l;  Pe=10  and  S=l,  4,  8,  12  &  16 


Sv=1;  Z=  1;  Br=1;  Pe=10 
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Figure  65.  Gr  Vs  R  for  Sv=l;  Z=l;  Br=l;  Pe=10  and  S=l,  4,  8,  12  &  16 


Sy=1;Z=1;  Br=1;  Pe=10 


Figure  66.  Nf  Vs  R  for  Sv=l;  Z=l;  Br=l;  Pe=10  and  S=l,  4,  8,  12  &  16 
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Figure  67.  Nh  Vs  R  for  Sv=l;  Z=l;  Br=l;  Pe=10  and  S=l,  4,  8,  12  &  16 


Sy=1;  Z=1;  Br=1;  Pe=10 


Figure  68.  Ns  Vs  R  for  S=l;  Z=l;  Br=l;  Pe=10  and  Sv=l,  4,  8,  12  &  16 


S=1;  Z=1;  Br=1;  Pe=10 
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Figure  69. 


Be  Vs  R  for  S=l;  Z=l;  Br=l;  Pe=10  and  Sv=l,  4,  8,  12  &  16 


S=1;  Z=1;  Br=1;  Pe=10 


Figure  70.  O  Vs  R  for  S=l;  Z=l;  Br=l;  Pe=10  and  Sv=l,  4,  8,  12  &  16 


S=1;  Z=1;  Br=1 ;  Pe=10 
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Figure  71. 


Gf  Vs  R  for  S=l;  Z=l;  Br=l;  Pe=10  and  Sv=l,  4,  8,  12  &  16 


S=1;  2=1;  Br=1;  Pe=10 


Figure  72.  Gr  Vs  R  for  S=l;  Z=l;  Br=l;  Pe=10  and  Sv=l,  4,  8,  12  &  16 

S=1;  Z=1;  Br=1;  Pe=10 
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Figure  73.  Nf  Vs  R  for  S=l;  Z=l;  Br=l;  Pe=10  and  Sv=l,  4,  8,  12  &  16 
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Figure  74.  Nh  Vs  R  for  S=l;  Z=l;  Br=l;  Pe=10  and  Sv=l,  4,  8,  12  &  16 


S=1;  Z=1;  0r=1;  Pe=10 
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MATLAB  PROGRAMS 
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1.  PROGRAMS  FOR 
PARALLEL  PLATE  MICROCHANNEL 
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1.1.  Distribution  of  Ns,Be,  ®,  GF,  GH,  NF  and  N  H  versus  Y  for  a  range  of 


Br  and  set  of  S ,  Sv ,  Z  &  Pe 


S=l;  S_v=l;Z=l;Pe=10; 

%  S=5;  S_v=0.75;  Z=7.5;  Pe=2; 

%  %  %  %  %  S=2;  S_v=l;  Z=5;  Pe=0.5; 

%  %  %  %  %  S=10;  S_v=25;  Z=20;  Pe=5; 
%  %  %  %  %  S=20;  S_v=2;  Z=2.5;  Pe=l; 

%  %  %  %  %  S=25;  S_v=15;  Z=10;  Pe=2.5; 


q=1.86; 

s=l; 

Dh=250*10A-6; 

Y=0:0. 005:1; 

Nc=[l/PeA2]*[16*qA2+sA2*DhA2+8*q*s*Dh]; 


Ny=l  -  exp(-2*Z)  +  exp(-Z  -  Y.*Z)  -  (2*S)/exp(2*Z)  +  2*exp(-Z  -  Y.*Z)*S  -  SA2/exp(2*Z)  +  exp(-Z  - 
Y.*Z)*SA2  -  2.*Y  +  Y.A2  +  Y.A2/exp(2*Z)  -  exp(-Z  -  Y.*Z).*Y.A2  ... 

+  (2*S.*Y.A2)/exp(2*Z)  -  2*exp(-Z  -  Y.*Z)*S.*Y.A2  +  (SA2.*Y.A2)/exp(2*Z)  -  exp(-Z  - 
Y.*Z)*SA2.*Y.A2  +  l/(exp(2*Z)*ZA2)  +  l./(exp(2.*Y.*Z)*ZA2) ... 

-  (2*exp(-Z  -  Y.*Z))/ZA2  +  (2*S)/(exp(2*Z)*ZA2)  +  (2*S)./(exp(2.*Y.*Z)*ZA2)  -  (4*exp(-Z  - 
Y.*Z)*S)/ZA2  +  SA2/(exp(2*Z)*ZA2)  +  SA2./(exp(2.*Y.*Z)*ZA2)  ... 

-  (2*exp(-Z  -  Y.*Z)*SA2)/ZA2  +  2/(exp(Z)*Z)  -  2./(exp(Y.*Z)*Z)  +  (2*S)/(exp(Z)*Z)  - 
(2*S)./(exp(Y.*Z)*Z)  -  (2,*Y)/(exp(Z)*Z)  +  (2.*Y)/(exp(Y.*Z)*Z) ... 

-  (2*S.*Y)/(exp(Z)*Z)  +  (2*S.*Y)/(exp(Y.*Z)*Z)  -  Z/exp(Z)  -  (S*Z)/exp(Z)  +  (Y.*Z)/exp(Z)  + 
(S.*Y.*Z)/exp(Z)  +(Y.A2*Z)/exp(Z)  +  (S.*Y.A2*Z)/exp(Z)  -  (Y.A3*Z)/exp(Z) ... 

-  (S.*Y.A3*Z)/exp(Z)  +  ZA2/(4*exp(2*Z))  +  (S*ZA2)/(2*exp(2*Z))  +  (SA2*ZA2)/(4*exp(2*Z))  - 
(Y.A2*ZA2)/(2*exp(2*Z))  -  (S.*Y.A2*ZA2)/exp(2*Z)  ... 

-  (SA2.*Y.A2*ZA2)/(2*exp(2*Z))  +  (Y  A4*ZA2)/(4*exp(2*Z))  +  (S.*Y.A4*ZA2)/(2*exp(2*Z))  + 
(SA2.*Y.A4*ZA2)/(4*exp(2*Z))  -  (7*S*(S_v))/(2*exp(3*Z)) ... 

+  (2*S*(S_v))/exp(2*Z)  +  (S*(S_v))/exp(Z)  -  (exp(-Z  -  2.*Y.*Z)*S*(S_v))/2  -  (5*SA2*(S_v))/exp(3*Z) 
+  (2*SA2*(S_v))/exp(2*Z)  -  (SA2*(S_v))/(2*exp(Z)) ... 

-  (exp(-Z  -  2.*Y.*Z)*SA2*(S_v))/2  -  (2*S.*Y.*(S_v))/exp(2*Z)  -  (3*S.*Y.*(S_v))/exp(Z)  + 
(3*SA2.*Y.*(S_v))/(2*exp(3*Z))  -  (2*SA2.*Y.*(S_v))/exp(2*Z) ... 

+  (SA2.*Y.*(S_v))/(2*exp(Z))  +  (13*S.*Y.A2*(S_v))/(2*exp(3*Z))  -  (4*S.*Y.A2*(S_v))/exp(2*Z)  + 
(3*S.*Y.A2*(S_v))/exp(Z)  +  (exp(-Z  -  2.*Y.*Z)*S.*Y.A2*(S_v))/2  ... 

+  (5*SA2.*Y.A2*(S_v))/exp(3*Z)  -  (2*SA2.*Y.A2*(S_v))/exp(2*Z)  +  (SA2.*Y.A2*(S_v))/(2*exp(Z))  + 
(exp(-Z  -  2.*Y.*Z)*SA2.*Y.A2*(S_v))/2  -  (3*S.*Y.A3*(S_v))/exp(3*Z) ... 

+  (4*S.*Y.A3*(S_v))/exp(2*Z)  -  (S.*Y.A3*(S_v))/exp(Z)  -  (3*SA2.*Y  A3*(S_v))/(2*exp(3*Z))  + 
(2*SA2.*Y.A3*(S_v))/exp(2*Z)  -  (SA2.*Y.A3*(S_v))/(2*exp(Z)) ... 

+  (3*S*(S_v))/(exp(4*Z)*ZA3)  -  (4*S*(S_v))/(exp(3*Z)*ZA3)  +  (S*(S_v))/(exp(2*Z)*ZA3)  + 
(S*(S_v))./(exp(2.*Y.*Z)*ZA3)  +  (3*exp(-2*Z  -  2.*Y.*Z)*S*(S_v))/ZA3  ... 

-  (4*exp(-Z  -  2.*Y.*Z)*S*(S_v))/ZA3  -  (6*exp(-3*Z  -  Y.*Z)*S*(S_v))/ZA3  +  (8*exp(-2*Z  - 
Y.*Z)*S*(S_v))/ZA3  -  (2*exp(-Z  -  Y.*Z)*S*(S_v))/ZA3  ... 

+  (3*SA2*(S_v))/(exp(4*Z)*ZA3)  -  (4*SA2*(S_v))/(exp(3*Z)*ZA3)  +  (SA2*(S_v))/(exp(2*Z)*ZA3)  + 
(SA2*(S_v))./(exp(2.*Y.*Z)*ZA3)  +  (3*exp(-2*Z  -  2,*Y.*Z)*SA2*(S_v))/ZA3  ... 

-  (4*exp(-Z  -  2.*Y.*Z)*SA2*(S_v))/ZA3  -  (6*exp(-3*Z  -  Y.*Z)*SA2*(S_v))/ZA3  +  (8*exp(-2*Z  - 
Y.*Z)*SA2*(S_v))/ZA3  -  (2*exp(-Z  -  Y.*Z)*SA2*(S_v))/ZA3  ... 

+  (ll*S*(S_v))/(exp(3*Z)*ZA2)  -  (8*S*(S_v))/(exp(2*Z)*ZA2)  +  (2*S*(S_v))/(exp(Z)*ZA2)  - 
(S*(S_v))./(exp(3.*Y.*Z)*ZA2)  -  (2*S*(S_v))./(exp(Y.*Z)*ZA2) ... 

-  (exp(-Z  -  2,*Y.*Z)*S*(S_v))/ZA2  -  (9*exp(-2*Z  -  Y.*Z)*S*(S_v))/ZA2  +  (8*exp(-Z  - 
Y.*Z)*S*(S_v))/ZA2  +  (8*SA2*(S_v))/(exp(3*Z)*ZA2);  ... 
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-  (4*SA2*(S_v))/(exp(2*Z)*ZA2)  +  (SA2*(S_v))/(exp(Z)*ZA2)  -  (SA2*(S_v))./(exp(3.*Y.*Z)*ZA2)  - 
(SA2*(S_v))./(exp(Y.*Z)*ZA2)  -  (exp(-Z  -  2.*Y.*Z)*SA2*(S_v))/ZA2  ... 

-  (6*exp(-2*Z  -  Y.*Z)*SA2*(S_v))/ZA2  +  (4*exp(-Z  -  Y.*Z)*SA2*(S_v))/ZA2  - 

(6*S.*Y.*(S_v))/(exp(3*Z)*ZA2)  +  (8*S.*Y.*(S_v))/(exp(2*Z)*ZA2)  ... 

-  (2*S.*Y.*(S_v))/(exp(Z)*ZA2)  +  (2*S.*Y.*(S_v))/(exp(Y.*Z)*ZA2)  +  (6*exp(-2*Z  - 

Y.*Z)*S.*Y.*(S_v))/ZA2  -  (8*exp(-Z  -  Y.*Z)*S.*Y.*(S_v))/ZA2  ... 

(3*SA2.*Y.*(S_v))/(exp(3*Z)*ZA2)  +  (4*SA2.*Y.*(S_v))/(exp(2*Z)*ZA2) 

(SA2.*Y.*(S_v))/(exp(Z)*ZA2)  +  (SA2.*Y.*(S_v))/(exp(Y.*Z)*ZA2)  ... 

+  (3*exp(-2*Z  -  Y.*Z)*SA2.*Y.*(S_v))/ZA2  -  (4*exp(-Z  -  Y.*Z)*SA2.*Y.*(S_v))/ZA2  +  (S*(S_v))/Z  + 
(2*S*(S_v))/(exp(3*Z)*Z)  +  (9*S*(S_v))/(exp(2*Z)*Z)... 

-  (4*S*(S_v))/(exp(Z)*Z)  +  (S*(S_v))./(exp(2.*Y.*Z)*Z)  -  (2*exp(-2*Z  -  Y.*Z)*S*(S_v))/Z  +  (exp(-Z  - 
Y.*Z)*S*(S_v))/Z  +  (2*SA2*(S_v))/(exp(3*Z)*Z) ... 

+  (SA2*(S_v))/(exp(2*Z)*Z)  -  (2*exp(-2*Z  -  Y.*Z)*SA2*(S_v))/Z  -  (exp(-Z  -  Y.*Z)*SA2*(S_v))/Z  - 
(2*S.*Y.*(S_v))/Z  -  (13*S.*Y.*(S_v))/(exp(2*Z)*Z) ... 

+  (8*S.*Y.*(S_v))/(exp(Z)*Z)  -  (S.*Y.*(S_v))./(exp(2.*Y.*Z)*Z)  -  (2*SA2.*Y.*(S_v))/(exp(2*Z)*Z)  + 
(2*exp(-Z  -  Y.*Z)*SA2.*Y.*(S_v))/Z  +  (S.*Y.A2*(S_v))/Z  ... 

+  (3*S.*Y.A2*(S_v))/(exp(4*Z)*Z)  -  (4*S.*Y.A2*(S_v))/(exp(3*Z)*Z)  + 

(4*S.*Y.A2*(S_v))/(exp(2*Z)*Z)  -  (4*S.*Y  A2*(S_v))/(exp(Z)*Z) ... 

-  (3*exp(-3*Z  -  Y.*Z)*S.*Y.A2*(S_v))/Z  +  (4*exp(-2*Z  -  Y.*Z)*S.*Y.A2*(S_v))/Z  -  (exp(-Z  - 
Y.*Z)*S.*Y.A2*(S_v))/Z  +  (3*SA2.*Y.A2*(S_v))/(exp(4*Z)*Z)  ... 

-  (4*SA2.*Y.A2*(S_v))/(exp(3*Z)*Z)  +  (SA2.*Y  A2*(S_v))/(exp(2*Z)*Z)  -  (3*exp(-3*Z  - 

Y.*Z)*SA2.*Y.A2*(S_v))/Z  +  (4*exp(-2*Z  -  Y.*Z)*SA2.*Y.A2*(S_v))/Z  ... 

-  (exp(-Z  -  Y.*Z)*SA2.*Y.A2*(S_v))/Z  -  (3*S*Z*(S_v))/(4*exp(4*Z))  -  (7*S*Z*(S_v))/(4*exp(2*Z))  - 
(3*SA2*Z*(S_v))/(4*exp(4*Z))  -  (3*SA2*Z*(S_v))/(4*exp(2*Z)) ... 

+  (2*S.*Y.*Z*(S_v))/exp(2*Z)  +  (SA2.*Y.*Z*(S_v))/exp(2*Z)  +  (S.*Y.A2*Z*(S_v))/exp(3*Z)  + 
(3*S.*Y.A2*Z*(S_v))/(2*exp(2*Z))  +  (SA2.*Y.A2*Z*(S_v))/exp(3*Z)  ... 

+  (SA2.*Y.A2*Z*(S_v))/(2*exp(2*Z))  -  (2*S.*Y.A3*Z*(S_v))/exp(2*Z) 

(SA2.*Y.A3*Z*(S_v))/exp(2*Z)  +  (3*S.*Y.A4*Z*(S_v))/(4*exp(4*Z))  -  (S.*Y.A4*Z*(S_v))/exp(3*Z) ... 

+  (S.*Y.A4*Z*(S_v))/(4*exp(2*Z))  +  (3*SA2.*Y.A4*Z*(S_v))/(4*exp(4*Z)) 

(SA2.*Y.A4*Z*(S_v))/exp(3*Z)  +  (SA2.*Y.A4*Z*(S_v))/(4*exp(2*Z))  +  (S*ZA2*(S_v))/(2*exp(3*Z)) ... 

+  (SA2*ZA2*(S_v))/(2*exp(3*Z))  -  (S.*Y  A2*ZA2*(S_v))/exp(3*Z)  -  (SA2.*Y.A2*ZA2*(S_v))/exp(3*Z) 
+  (S.*Y.A4*ZA2*(S_v))/(2*exp(3*Z)) ... 

+  (SA2.*Y.A4*ZA2*(S_v))/(2*exp(3*Z))  +  (9*SA2*(S_v)A2)/(16*exp(6*Z)) 

(23*SA2*(S_v)A2)/(8*exp(4*Z))  +  (2*SA2*(S_v)A2)/exp(3*Z)  +  (SA2*(S_v)A2)/(16*exp(2*Z))  ... 

(exp(-2*Z  -  2.*Y.*Z)*SA2*(S_v)A2)/2  -  exp(-3*Z  -  Y.*Z)*SA2*(S_v)A2 

(2*SA2.*Y.*(S_v)A2)/exp(3*Z)  -  (SA2.*Y.*(S_v)A2)/exp(2*Z)  +  (9*SA2.*Y  A2*(S_v)A2)/(8*exp(6*Z)) ... 

(3*SA2.*Y.A2*(S_v)A2)/(2*exp(5*Z))  +  (1  l*SA2.*Y.A2*(S_v)A2)/(2*exp(4*Z)) 

(7*SA2.*Y  A2*(S_v)A2)/(2*exp(3*Z))  +  (15*SA2.*Y  A2*(S_v)A2)/(8*exp(2*Z)) ... 

+  (exp(-2*Z  -  2.*Y.*Z)*SA2.*Y.A2*(S_v)A2)/2  +  exp(-3*Z  -  Y.*Z)*SA2.*Y.A2*(S_v)A2  - 
(3*SA2.*Y  A3*(S_v)A2)/exp(4*Z)  +  (4*SA2.*Y  A3*(S_v)A2)/exp(3*Z) ... 

(SA2.*Y.A3*(S_v)A2)/exp(2*Z)  +  (9*SA2.*Y.A4*(S_v)A2)/(16*exp(6*Z)) 

(3*SA2.*Y.A4*(S_v)A2)/(2*exp(5*Z))  +  (1  l*SA2.*Y.A4*(S_v)A2)/(8*exp(4*Z)) ... 

(SA2.*Y.A4*(S_v)A2)/(2*exp(3*Z))  +  (SA2.*Y.A4*(S_v)A2)/(16*exp(2*Z))  + 

(9*SA2*(S_v)A2)/(4*exp(6*Z)*ZA4)  -  (6*SA2*(S_v)A2)/(exp(5*Z)*ZA4) ... 

+  (1  l*SA2*(S_v)A2)/(2*exp(4*Z)*ZA4)  -  (2*SA2*(S_v)A2)/(exp(3*Z)*ZA4)  + 

(SA2*(S_v)A2)/(4*exp(2*Z)*ZA4)  +  (SA2*(S_v)A2)./(4*exp(2.*Y.*Z)*ZA4) ... 

+  (9*exp(-4*Z  -  2.*Y.*Z)*SA2*(S_v)A2)/(4*ZA4)  -  (6*exp(-3*Z  -  2.*Y.*Z)*SA2*(S_v)A2)/ZA4  + 
(ll*exp(-2*Z  -  2.*Y.*Z)*SA2*(S_v)A2)/(2*ZA4)  ... 

-  (2*exp(-Z  -  2.*Y.*Z)*SA2*(S_v)A2)/ZA4  -  (9*exp(-5*Z  -  Y.*Z)*SA2*(S_v)A2)/(2*ZA4)  +  (12*exp(- 
4*Z  -  Y.*Z)*SA2*(S_v)A2)/ZA4  -  (ll*exp(-3*Z  -  Y.*Z)*SA2*(S_v)A2)/ZA4  ... 

+  (4*exp(-2*Z  -  Y.*Z)*SA2*(S_v)A2)/ZA4  -  (exp(-Z  -  Y.*Z)*SA2*(S_v)A2)/(2*ZA4)  + 

(12*SA2*(S_v)A2)/(exp(5*Z)*ZA3)  -  (22*SA2*(S_v)A2)/(exp(4*Z)*ZA3) ... 

+  (27*SA2*(S_v)A2)/(2*exp(3*Z)*ZA3)  -  (4*SA2*(S_v)A2)/(exp(2*Z)*ZA3)  + 

(SA2*(S_v)A2)/(2*exp(Z)*ZA3)  -  (SA2*(S_v)A2)./(2*exp(3.*Y.*Z)*ZA3)  ... 

-  (SA2*(S_v)A2)./(2*exp(Y.*Z)*ZA3)  -  (3*exp(-2*Z  -  3.*Y.*Z)*SA2*(S_v)A2)/(2*ZA3)  +  (2*exp(-Z  - 
3.*Y.*Z)*SA2*(S_v)A2)/ZA3  -  (3*exp(-3*Z  -  2,*Y.*Z)*SA2*(S_v)A2)/(2*ZA3) ... 
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+  (2*exp(-2*Z  -  2.*Y.*Z)*SA2*(S_v)A2)/ZA3  -  (exp(-Z  -  2.*Y.*Z)*SA2*(S_v)A2)/(2*ZA3)  -  (9*exp(-4*Z 

-  Y.*Z)*SA2*(S_v)A2)/ZA3  +  (18*exp(-3*Z  -  Y.*Z)*SA2*(S_v)A2)/ZA3  ... 

-  (25*exp(-2*Z  -  Y.*Z)*SA2*(S_v)A2)/(2*ZA3)  +  (4*exp(-Z  -  Y.*Z)*SA2*(S_v)A2)/ZA3  - 

(9*SA2.*Y.*(S_v)A2)/(2*exp(5*Z)*ZA3)  +  (12*SA2.*Y.*(S_v)A2)/(exp(4*Z)*ZA3) ... 

(ll*SA2.*Y.*(S_v)A2)/(exp(3*Z)*ZA3)  +  (4*SA2.*Y.*(S_v)A2)/(exp(2*Z)*ZA3) 

(SA2.*Y.*(S_v)A2)/(2*exp(Z)*ZA3)  +  (SA2.*Y.*(S_v)A2)/(2*exp(Y.*Z)*ZA3) ... 

+  (9*exp(-4*Z  -  Y.*Z)*SA2.*Y.*(S_v)A2)/(2*ZA3)  -  (12*exp(-3*Z  -  Y.*Z)*SA2.*Y.*(S_v)A2)/ZA3  + 
(ll*exp(-2*Z  -  Y.*Z)*SA2.*Y.*(S_v)A2)/ZA3  ... 

(4*exp(-Z  -  Y.*Z)*SA2.*Y.*(S_v)A2)/ZA3  +  (SA2*(S_v)A2)/(4*ZA2)  + 

(9*SA2*(S_v)A2)/(4*exp(6*Z)*ZA2)  -  (3*SA2*(S_v)A2)/(exp(5*Z)*ZA2)  + 

(19*SA2*(S_v)A2)/(exp(4*Z)*ZA2)  ... 

(19*SA2*(S_v)A2)/(exp(3*Z)*ZA2)  +  (35*SA2*(S_v)A2)/(4*exp(2*Z)*ZA2) 

(2*SA2*(S_v)A2)/(exp(Z)*ZA2)  +  (SA2*(S_v)A2)./(4*exp(4.*Y.*Z)*ZA2) ... 

+  (SA2*(S_v)A2)./(2*exp(2.*Y.*Z)*ZA2)  +  (exp(-Z  -  3.*Y.*Z)*SA2*(S_v)A2)/ZA2  +  (5*exp(-2*Z  - 
2,*Y.*Z)*SA2*(S_v)A2)/ZA2  -  (2*exp(-Z  -  2.*Y.*Z)*SA2*(S_v)A2)/ZA2  ... 

-  (9*exp(-5*Z  -  Y.*Z)*SA2*(S_v)A2)/(4*ZA2)  +  (3*exp(-4*Z  -  Y.*Z)*SA2*(S_v)A2)/ZA2  +  (5*exp(-3*Z 

-  Y.*Z)*SA2*(S_v)A2)/ZA2  -  (exp(-2*Z  -  Y.*Z)*SA2*(S_v)A2)/ZA2  ... 

+  (exp(-Z  -  Y.*Z)*SA2*(S_v)A2)/(4*ZA2)  -  (SA2.*Y.*(S_v)A2)/(2*ZA2) 

(15*SA2.*Y.*(S_v)A2)/(exp(4*Z)*ZA2)  +  (26*SA2.*Y.*(S_v)A2)/(exp(3*Z)*ZA2) ... 

(29*SA2.*Y.*(S_v)A2)/(2*exp(2*Z)*ZA2)  +  (4*SA2.*Y.*(S_v)A2)/(exp(Z)*ZA2) 

(SA2.*Y.*(S_v)A2)./(2*exp(2.*Y.*Z)*ZA2)  -  (3*exp(-2*Z  -  2.*Y.*Z)*SA2.*Y.*(S_v)A2)/(2*ZA2)  ... 

+  (2*exp(-Z  -  2.*Y.*Z)*SA2.*Y.*(S_v)A2)/ZA2  +  (SA2.*Y  A2*(S_v)A2)/(4*ZA2)  + 

(9*SA2.*Y  A2*(S_v)A2)/(4*exp(6*Z)*ZA2)  -  (6*SA2.*Y  A2*(S_v)A2)/(exp(5*Z)*ZA2) ... 

+  (31*SA2.*Y.A2*(S_v)A2)/(4*exp(4*Z)*ZA2)  -  (8*SA2.*Y  A2*(S_v)A2)/(exp(3*Z)*ZA2)  + 

(23*SA2.*Y.A2*(S_v)A2)/(4*exp(2*Z)*ZA2)  -  (2*SA2.*Y  A2*(S_v)A2)/(exp(Z)*ZA2) ... 

-  (9*exp(-5*Z  -  Y.*Z)*SA2.*Y.A2*(S_v)A2)/(4*ZA2)  +  (6*exp(-4*Z  -  Y.*Z)*SA2.*Y  A2*(S_v)A2)/ZA2  - 
(ll*exp(-3*Z  -  Y.*Z)*SA2.*Y.A2*(S_v)A2)/(2*ZA2) ... 

+  (2*exp(-2*Z  -  Y. *Z)*SA2. * Y.A2*(S_v)A2)/ZA2  -  (exp(-Z  -  Y.*Z)*SA2.*Y  A2*(S_v)A2)/(4*ZA2)  + 
(9*SA2*(S_v)A2)/(2*exp(5*Z)*Z)  -  (SA2*(S_v)A2)/(exp(4*Z)*Z) ... 

+  (25*SA2*(S_v)A2)/(4*exp(3*Z)*Z)  -  (3*SA2*(S_v)A2)/(exp(2*Z)*Z)  +  (3*SA2*(S_v)A2)/(4*exp(Z)*Z) 
+  (3*exp(-3*Z  -  2.*Y.*Z)*SA2*(S_v)A2)/(4*Z)  ... 

+  (3*exp(-Z  -  2.*Y.*Z)*SA2*(S_v)A2)/(4*Z)  +  (3*exp(-4*Z  -  Y.*Z)*SA2*(S_v)A2)/Z  -  (2*exp(-3*Z  - 
Y.*Z)*SA2*(S_v)A2)/Z  +  (2*exp(-2*Z  -  Y.*Z)*SA2*(S_v)A2)/Z  ... 

(9*SA2.*Y.*(S_v)A2)/(4*exp(5*Z)*Z)  +  (3*SA2.*Y.*(S_v)A2)/(exp(4*Z)*Z) 

(1  l*SA2.*Y.*(S_v)A2)/(exp(3*Z)*Z)  +  (7*SA2.*Y.*(S_v)A2)/(exp(2*Z)*Z)  ... 

-  (7*SA2.*Y.*(S_v)A2)/(4*exp(Z)*Z)  -  (exp(-Z  -  2.*Y.*Z)*SA2.*Y.*(S_v)A2)/Z  -  (2*exp(-2*Z  - 
Y.*Z)*SA2.*Y.*(S_v)A2)/Z  +  (15*SA2.*Y.A2*(S_v)A2)/(2*exp(5*Z)*Z) ... 

(13*SA2.*Y.A2*(S_v)A2)/(exp(4*Z)*Z)  +  (41*SA2.*Y  A2*(S_v)A2)/(4*exp(3*Z)*Z) 

(6*SA2.*Y  A2*(S_v)A2)/(exp(2*Z)*Z)  +  (5*SA2.*Y  A2*(S_v)A2)/(4*exp(Z)*Z)  ... 

+  (3*exp(-3*Z  -  2.*Y.*Z)*SA2.*Y.A2*(S_v)A2)/(4*Z)  -  (exp(-2*Z  -  2.*Y.*Z)*SA2.*Y  A2*(S_v)A2)/Z  + 
(exp(-Z  -  2.*Y.*Z)*SA2.*Y.A2*(S_v)A2)/(4*Z)  ... 

(9*SA2.*Y.A3*(S_v)A2)/(4*exp(5*Z)*Z)  +  (6*SA2.*Y  ,A3*(S_v)A2)/(exp(4*Z)*Z) 

(1  l*SA2.*Y.A3*(S_v)A2)/(2*exp(3*Z)*Z)  +  (2*SA2.*Y ,A3*(S_v)A2)/(exp(2*Z)*Z) ... 

(SA2.*Y.A3*(S_v)A2)/(4*exp(Z)*Z)  -  (3*SA2*Z*(S_v)A2)/(4*exp(5*Z)) 

(3*SA2*Z*(S_v)A2)/(4*exp(3*Z))  +  (SA2.*Y.*Z*(S_v)A2)/exp(3*Z)  +  (SA2.*Y ,A2*Z*(S_v)A2)/exp(4*Z)  ... 

+  (SA2.*Y.A2*Z*(S_v)A2)/(2*exp(3*Z))  -  (SA2.*Y  ,A3*Z*(S_v)A2)/exp(3*Z)  + 

(3*SA2.*Y.A4*Z*(S_v)A2)/(4*exp(5*Z))  -  (SA2.*Y.A4*Z*(S_v)A2)/exp(4*Z) ... 

+  (SA2.*Y.A4*Z*(S_v)A2)/(4*exp(3*Z))  +  (SA2*ZA2*(S_v)A2)/(4*exp(4*Z)) 

(SA2.*Y.A2*ZA2*(S_v)A2)/(2*exp(4*Z))  +  (SA2.*Y.A4*ZA2*(S_v)A2)/(4*exp(4*Z)); 


Brl=0.2; 

Nfl=Brl*[(ZA2).*exp(-2.*Y.*Z)+(ZA2)*exp(-2*Z)-2*ZA2.*exp(-Z-Y.*Z)]; 

Nsl=Nfl+Nc+Ny; 

Phi  1  =Nf  1  ./[Nc+Ny] ; 

Be  1 = 1 ./[  1  +Phi  1  ] ; 
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Gfl=Nfl./Nsl; 

Ghl=[Nc+Ny]./Nsl; 

Br2=0.4; 

Nf2=Br2*[(ZA2).*exp(-2.*Y.*Z)+(ZA2)*exp(-2*Z)-2*ZA2.*exp(-Z-Y.*Z)]; 

Ns2=Nf2+Nc+Ny; 

Phi2=Nf2./[Nc+Ny] ; 

Be2=l./[1+Phi2]; 

Gf2=Nf2./Ns2; 

Gh2=[Nc+Ny]./Ns2; 

Br3=0.6; 

NG=Br3*[(ZA2).*exp(-2.*Y.*Z)+(ZA2)*exp(-2*Z)-2*ZA2.*exp(-Z-Y.*Z)]; 

Ns3=NG+Nc+Ny; 

Phi3=ND./[Nc+Ny]; 

Be3=l./[1+Phi3]; 

Gf3=NG./Ns3; 

Gh3=[Nc+Ny]./Ns3; 

Br4=0.8; 

Nf4=Br4*[(ZA2).*exp(-2.*Y.*Z)+(ZA2)*exp(-2*Z)-2*ZA2.*exp(-Z-Y.*Z)]; 

Ns4=Nf4+Nc+Ny; 

Phi4=Nf4./[Nc+Ny]; 

Be4=l./[1+Phi4]; 

Gf4=Nf4./Ns4; 

Gh4=[Nc+Ny]./Ns4; 

Br5=l; 

Nf5=Br5*[(ZA2).*exp(-2.*Y.*Z)+(ZA2)*exp(-2*Z)-2*ZA2.*exp(-Z-Y.*Z)]; 

Ns5=Nf5+Nc+Ny; 

Phi5=Nf5./[Nc+Ny]; 

Be5=l./[1+Phi5]; 

Gf5=Nf5./Ns5; 

Gh5=[Nc+Ny]./Ns5; 


Nh=Nc+Ny; 


plot(Y,Nsl,'b',Y,Ns2,'g',Y,Ns3,'r',Y,Ns4,'k',Y,Ns5,'m') 

%  plot(Y,Be  1  ,'b', Y,Be2,'g',Y,Be3,'r', Y,Be4,'k',Y,Be5,'m') 

%  plot(Y,Phil,'b',Y,Phi2,'g',Y,Phi3,'r',Y,Phi4,'k',Y,Phi5,'m') 

%  plot(Y,Gfl,'b',Y,Gf2,'g',Y,GG,'r',Y,Gf4,'k',Y,Gf5,'m') 

%  plot(Y,Ghl,'b',Y,Gh2,'g',Y,Gh3,'r',Y,Gh4,'k',Y,Gh5,'m') 

%  plot(Y,Nf I  ,'b',Y,Nf2,'g',Y,Nf3,'r',Y,Nf4,'k',Y,Nf5,'m') 

%  plot(Y,Nh) 

%  plot(Nh,Nfl,'b',Nh,Nf2,'g',Nh,Nfi,'r',Nh,Nf4,'k',Nh,Nf5,'m') 
PLOTTOOLS  ON 
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1.2.  Distribution  ofNs,Be,  O,  GF,  GH,  NF  and  NH  versus  Y  for  a  range  of 


Z  and  set  of  S ,  Sv,  Br  &  Pe 


S=l;  S_v=l;  Br=l;  Pe=10; 

%  S=5;  S_v=0.75;  Br=0.5;  Pe=2; 

%  %  %  %  %  S=2;  S_v=l;  Bi=0.8;  Pe=0.5; 

%  %  %  %  %  S=7.5;  S_v=15;  Br=0.6;  Pe=2.5; 
%  %  %  %  %  S=10;  S_v=5;  Br=0.9;  Pe=5; 

%  %  %  %  %  S=20;  S_v=5;  Br=0.2;  Pe=0.5; 


q=1.86; 

s=l; 

Dh=250*10A-6; 
Y=0:0. 005:1; 


Nc=[l/PeA2]*[16*qA2+sA2*DhA2+8*q*s*Dh]; 


Zl=6.5; 

Nfl=Br*[(ZlA2).*exp(-2.*Y.*Zl)+(ZlA2)*exp(-2*Zl)-2*ZlA2.*exp(-Zl-Y.*Zl)]; 

Nyl=l  -  exp(-2*Zl)  +  exp(-Zl  -  Y.*Z1)  -  (2*S)/exp(2*Zl)  +  2*exp(-Zl  -  Y.*Z1)*S  -  SA2/exp(2*Z  1 )  + 
exp(-Zl  -  Y.*Z1)*SA2  -  2.*Y  +  Y  A2  +  Y.A2/exp(2*Zl)  -  exp(-Zl  -  Y.*Z1).*Y  A2  ... 

+  (2*S.*Y.A2)/exp(2*Zl)  -  2*exp(-Zl  -  Y.*Z1)*S.*Y.A2  +  (SA2.*Y.A2)/exp(2*Zl)  -  exp(-Zl  - 
Y.*Z1)*SA2.*Y.A2  +  l/(exp(2*Zl)*ZlA2)  +  l./(exp(2.*Y.*Zl)*ZlA2)  ... 

-  (2*exp(-Zl  -  Y.*Z1))/Z1A2  +  (2*S)/(exp(2*Zl)*ZlA2)  +  (2*S)./(exp(2.*Y.*Zl)*ZlA2)  -  (4*exp(-Zl  - 
Y.*Z1)*S)/Z1A2  +  SA2/(exp(2*Zl)*ZlA2)  +  SA2./(exp(2.*Y.*Zl)*ZlA2)  ... 

-  (2*exp(-Zl  -  Y.*Z1)*SA2)/Z1A2  +  2/(exp(Zl)*Zl)  -  2,/(exp(Y.*Zl)*Zl)  +  (2*S)/(exp(Zl)*Zl)  - 
(2*S)./(exp(Y.*Zl)*Zl)  -  (2.* Y)/(exp(Z  1  )*Z  1 )  +  (2.*Y)/(exp(Y.*Zl)*Zl) ... 

-  (2*S.*Y)/(exp(Zl)*Zl)  +  (2*S.*Y)/(exp(Y.*Zl)*Zl)  -  Zl/exp(Zl)  -  (S*Zl)/exp(Zl)  + 

(Y.*Zl)/exp(Zl)  +  (S.*Y.*Zl)/exp(Zl)  +(Y.A2*Zl)/exp(Zl)  +  (S.*Y.A2*Zl)/exp(Zl)  -  (Y  A3*Zl)/exp(Zl) 

-  (S.*Y.A3*Zl)/exp(Zl)  +  ZlA2/(4*exp(2*Zl))  +  (S*ZlA2)/(2*exp(2*Zl))  +  (SA2*ZlA2)/(4*exp(2*Zl)) 
-  (Y.A2*ZlA2)/(2*exp(2*Zl))  -  (S.*Y.A2*ZlA2)/exp(2*Zl) ... 

-  (SA2.*Y.A2*ZlA2)/(2*exp(2*Zl))  +  (Y.A4*ZlA2)/(4*exp(2*Zl))  +  (S.*Y.A4*ZlA2)/(2*exp(2*Zl))  + 
(SA2.*Y.A4*ZlA2)/(4*exp(2*Zl))  -  (7*S*(S_v))/(2*exp(3*Zl)) ... 

+  (2*S*(S_v))/exp(2*Zl)  +  (S*(S_v))/exp(Zl)  -  (exp(-Zl  -  2.*Y.*Zl)*S*(S_v))/2  - 

(5*SA2*(S_v))/exp(3*Zl)  +  (2*SA2*(S_v))/exp(2*Zl)  -  (SA2*(S_v))/(2*exp(Zl)) ... 

-  (exp(-Zl  -  2.*Y.*Zl)*SA2*(S_v))/2  -  (2*S.*Y.*(S_v))/exp(2*Zl)  -  (3*S.*Y.*(S_v))/exp(Zl)  + 
(3*SA2.*Y.*(S_v))/(2*exp(3*Zl))  -  (2*SA2.*Y.*(S_v))/exp(2*Zl)  ... 

+  (SA2.*Y.*(S_v))/(2*exp(Zl))  +  (13*S.*Y.A2*(S_v))/(2*exp(3*Zl))  -  (4*S.*Y.A2*(S_v))/exp(2*Zl)  + 
(3*S.*Y.A2*(S_v))/exp(Zl)  +  (exp(-Zl  -  2.*Y.*Zl)*S.*Y.A2*(S_v))/2  ... 

+  (5*SA2.*Y.A2*(S_v))/exp(3*Zl)  -  (2*SA2.*Y.A2*(S_v))/exp(2*Zl)  +  (SA2.*Y.A2*(S_v))/(2*exp(Zl)) 
+  (exp(-Zl  -  2.*Y.*Zl)*SA2.*Y.A2*(S_v))/2  -  (3*S.*Y.A3*(S_v))/exp(3*Zl) ... 

+  (4*S.*Y.A3*(S_v))/exp(2*Zl)  -  (S.*Y  A3*(S_v))/exp(Zl)  -  (3*SA2.*Y.A3*(S_v))/(2*exp(3*Zl))  + 
(2*SA2.*Y.A3*(S_v))/exp(2*Zl)  -  (SA2.*Y.A3*(S_v))/(2*exp(Zl)) ... 

+  (3*S*(S_v))/(exp(4*Zl)*ZlA3)  -  (4*S*(S_v))/(exp(3*Zl)*ZlA3)  +  (S*(S_v))/(exp(2*Zl)*ZlA3)  + 
(S*(S_v))./(exp(2.*Y.*Zl)*ZlA3)  +  (3*exp(-2*Zl  -  2.*Y.*Zl)*S*(S_v))/ZlA3  ... 

-  (4*exp(-Zl  -  2.*Y.*Zl)*S*(S_v))/ZlA3  -  (6*exp(-3*Zl  -  Y.*Zl)*S*(S_v))/ZlA3  +  (8*exp(-2*Zl  - 
Y.*Zl)*S*(S_v))/ZlA3  -  (2*exp(-Zl  -  Y.*Zl)*S*(S_v))/ZlA3  ... 
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+  (3*SA2*(S_v))/(exp(4*Zl)*ZlA3)  -  (4*SA2*(S_v))/(exp(3*Zl)*ZlA3)  + 

(SA2*(S_v))/(exp(2*Zl)*ZlA3)  +  (SA2*(S_v))./(exp(2.*Y.*Zl)*ZlA3)  +  (3*exp(-2*Zl 

2.*Y.*Zl)*SA2*(S_v))/ZlA3  ... 

-  (4*exp(-Zl  -  2.*Y.*Zl)*SA2*(S_v))/ZlA3  -  (6*exp(-3*Zl  -  Y.*Zl)*SA2*(S_v))/ZlA3  +  (8*exp(-2*Zl 
-  Y.*Zl)*SA2*(S_v))/ZlA3  -  (2*exp(-Zl  -  Y.*Zl)*SA2*(S_v))/ZlA3  ... 

+  (ll*S*(S_v))/(exp(3*Zl)*ZlA2)  -  (8*S*(S_v))/(exp(2*Zl)*ZlA2)  +  (2*S*(S_v))/(exp(Zl)*ZlA2)  - 
(S*(S_v))./(exp(3.*Y.*Zl)*ZlA2)  -  (2*S*(S_v))./(exp(Y.*Zl)*ZlA2) ... 

-  (exp(-Zl  -  2.*Y.*Zl)*S*(S_v))/ZlA2  -  (9*exp(-2*Zl  -  Y.*Zl)*S*(S_v))/ZlA2  +  (8*exp(-Zl  - 
Y.*Zl)*S*(S_v))/ZlA2  +  (8*SA2*(S_v))/(exp(3*Zl)*ZlA2);  ... 

(4*SA2*(S_v))/(exp(2*Zl)*ZlA2)  +  (SA2*(S_v))/(exp(Zl)*ZlA2) 

(SA2*(S_v))./(exp(3.*Y.*Zl)*ZlA2)  -  (SA2*(S_v))./(exp(Y.*Zl)*ZlA2)  -  (exp(-Zl 

2,*Y.*Zl)*SA2*(S_v))/ZlA2  ... 

-  (6*exp(-2*Zl  -  Y.*Zl)*SA2*(S_v))/ZlA2  +  (4*exp(-Zl  -  Y.*Zl)*SA2*(S_v))/ZlA2  - 

(6*S.*Y.*(S_v))/(exp(3*Zl)*ZlA2)  +  (8*S.*Y.*(S_v))/(exp(2*Zl)*ZlA2) ... 

-  (2*S.*Y.*(S_v))/(exp(Zl)*ZlA2)  +  (2*S.*Y.*(S_v))/(exp(Y.*Zl)*ZlA2)  +  (6*exp(-2*Zl  - 

Y.*Zl)*S.*Y.*(S_v))/ZlA2  -  (8*exp(-Zl  -  Y.*Zl)*S.*Y.*(S_v))/ZlA2  ... 

(3*SA2.*Y.*(S_v))/(exp(3*Zl)*ZlA2)  +  (4*SA2.*Y.*(S_v))/(exp(2*Zl)*ZlA2) 

(SA2.*Y.*(S_v))/(exp(Zl)*ZlA2)  +  (SA2.*Y.*(S_v))/(exp(Y.*Zl)*ZlA2)  ... 

+  (3*exp(-2*Zl  -  Y.*Zl)*SA2.*Y.*(S_v))/ZlA2  -  (4*exp(-Zl  -  Y.*Zl)*SA2.*Y.*(S_v))/ZlA2  + 
(S*(S_v))/Zl  +  (2*S*(S_v))/(exp(3*Zl)*Zl)  +  (9*S*(S_v))/(exp(2*Zl)*Zl)... 

-  (4*S*(S_v))/(exp(Zl)*Zl)  +  (S*(S_v))./(exp(2.*Y.*Zl)*Zl)  -  (2*exp(-2*Zl  -  Y.*Zl)*S*(S_v))/Zl  + 
(exp(-Zl  -  Y.*Zl)*S*(S_v))/Zl  +  (2*SA2*(S_v))/(exp(3*Zl)*Zl) ... 

+  (SA2*(S_v))/(exp(2*Zl)*Zl)  -  (2*exp(-2*Zl  -  Y.*Zl)*SA2*(S_v))/Zl  -  (exp(-Zl  - 

Y.*Zl)*SA2*(S_v))/Zl  -  (2*S.*Y.*(S_v))/Zl  -  (13*S.*Y.*(S_v))/(exp(2*Zl)*Zl) ... 

+  (8*S.*Y.*(S_v))/(exp(Zl)*Zl)  -  (S.*Y.*(S_v))./(exp(2.*Y.*Zl)*Zl) 

(2*SA2.*Y.*(S_v))/(exp(2*Zl)*Zl)  +  (2*exp(-Zl  -  Y.*Zl)*SA2.*Y.*(S_v))/Zl  +  (S.*Y ,A2*(S_v))/Zl  ... 

+  (3*S.*Y  A2*(S_v))/(exp(4*Zl)*Zl)  -  (4*S.*Y ,A2*(S_v))/(exp(3*Zl)*Zl)  + 

(4*S.*Y.A2*(S_v))/(exp(2*Zl)*Zl)  -  (4*S.*Y ,A2*(S_v))/(exp(Zl)*Zl) ... 

-  (3*exp(-3*Zl  -  Y.*Zl)*S.*Y.A2*(S_v))/Zl  +  (4*exp(-2*Zl  -  Y.*Z1)*S.*Y ,A2*(S_v))/Zl  -  (exp(-Zl  - 
Y.*Zl)*S.*Y.A2*(S_v))/Zl  +  (3*SA2.*Y.A2*(S_v))/(exp(4*Zl)*Zl) ... 

-  (4*SA2.*Y.A2*(S_v))/(exp(3*Zl)*Zl)  +  (SA2.*Y  ,A2*(S_v))/(exp(2*Zl)*Zl)  -  (3*exp(-3*Zl  - 
Y.*Zl)*SA2.*Y.A2*(S_v))/Zl  +  (4*exp(-2*Zl  -  Y.*Zl)*SA2.*Y.A2*(S_v))/Zl  ... 

(exp(-Zl  -  Y.*Zl)*SA2.*Y.A2*(S_v))/Zl  -  (3*S*Zl*(S_v))/(4*exp(4*Zl)) 

(7*S*Zl*(S_v))/(4*exp(2*Zl))  -  (3*SA2*Zl*(S_v))/(4*exp(4*Zl))  -  (3*SA2*Zl*(S_v))/(4*exp(2*Zl)) ... 

+  (2*S.*Y.*Zl*(S_v))/exp(2*Zl)  +  (SA2.*Y.*Zl*(S_v))/exp(2*Zl)  +  (S.*Y  A2*Zl*(S_v))/exp(3*Zl)  + 
(3*S.*Y ,A2*Zl*(S_v))/(2*exp(2*Zl))  +  (SA2.*Y ,A2*Zl*(S_v))/exp(3*Zl)  ... 

+  (SA2.*Y.A2*Zl*(S_v))/(2*exp(2*Zl))  -  (2*S.*Y  A3*Zl*(S_v))/exp(2*Zl) 

(SA2.*Y.A3*Zl*(S_v))/exp(2*Zl)  +  (3*S.*Y.A4*Zl*(S_v))/(4*exp(4*Zl)) 

(S.*Y.A4*Zl*(S_v))/exp(3*Zl) ... 

+  (S.*Y.A4*Zl*(S_v))/(4*exp(2*Zl))  +  (3*SA2.*Y.A4*Zl*(S_v))/(4*exp(4*Zl)) 

(SA2.*Y.A4*Zl*(S_v))/exp(3*Zl)  +  (SA2.*Y  A4*Zl*(S_v))/(4*exp(2*Zl))  + 

(S*ZlA2*(S_v))/(2*exp(3*Zl))  ... 

+  (SA2*ZlA2*(S_v))/(2*exp(3*Zl))  -  (S.*Y  A2*ZlA2*(S_v))/exp(3*Zl) 

(SA2.*Y.A2*ZlA2*(S_v))/exp(3*Zl)  +  (S.*Y.A4*ZlA2*(S_v))/(2*exp(3*Zl)) ... 

+  (SA2.*Y.A4*ZlA2*(S_v))/(2*exp(3*Zl))  +  (9*SA2*(S_v)A2)/(16*exp(6*Zl)) 

(23*SA2*(S_v)A2)/(8*exp(4*Zl))  +  (2*SA2*(S_v)A2)/exp(3*Zl)  +  (SA2*(S_v)A2)/(16*exp(2*Zl)) ... 

-  (exp(-2*Zl  -  2.*Y.*Zl)*SA2*(S_v)A2)/2  -  exp(-3*Zl  -  Y.*Zl)*SA2*(S_v)A2  - 

(2*SA2.*Y.*(S_v)A2)/exp(3*Zl)  -  (SA2.*Y.*(S_v)A2)/exp(2*Zl)  +  (9*SA2.*Y ,A2*(S_v)A2)/(8*exp(6*Zl)) 

(3*SA2.*Y.A2*(S_v)A2)/(2*exp(5*Zl))  +  (11*SA2.*Y  ,A2*(S_v)A2)/(2*exp(4*Zl)) 

(7*SA2.*Y  A2*(S_v)A2)/(2*exp(3*Zl))  +  (15*SA2.*Y ,A2*(S_v)A2)/(8*exp(2*Zl))  ... 

+  (exp(-2*Zl  -  2.*Y.*Zl)*SA2.*Y.A2*(S_v)A2)/2  +  exp(-3*Zl  -  Y.*Z1)*SA2.*Y ,A2*(S_v)A2  - 
(3*SA2.*Y  A3*(S_v)A2)/exp(4*Zl)  +  (4*SA2.*Y  A3*(S_v)A2)/exp(3*Zl) ... 

(SA2.*Y.A3*(S_v)A2)/exp(2*Zl)  +  (9*SA2.*Y.A4*(S_v)A2)/(16*exp(6*Zl)) 

(3*SA2.*Y.A4*(S_v)A2)/(2*exp(5*Zl))  +  (ll*SA2.*Y.A4*(S_v)A2)/(8*exp(4*Zl))  ... 
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(SA2.*Y.A4*(S_v)A2)/(2*exp(3*Zl))  +  (SA2.*Y.A4*(S_v)A2)/(16*exp(2*Zl))  + 

(9*SA2*(S_v)A2)/(4*exp(6*Zl)*ZlA4)  -  (6*SA2*(S_v)A2)/(exp(5*Zl)*ZlA4)  ... 

+  ( 1 1  *SA2*(S_v)A2)/(2*exp(4*Z  1  )*Z  1 A4)  -  (2*SA2*(S_v)A2)/(exp(3*Zl)*ZlA4)  + 

(SA2*(S_v)A2)/(4*exp(2*Zl)*ZlA4)  +  (SA2*(S_v)A2)./(4*exp(2.*Y.*Zl)*ZlA4) ... 

+  (9*exp(-4*Zl  -  2.*Y.*Zl)*SA2*(S_v)A2)/(4*ZlA4)  -  (6*exp(-3*Zl  -  2.*Y.*Zl)*SA2*(S_v)A2)/ZlA4  + 
(ll*exp(-2*Zl  -  2,*Y.*Zl)*SA2*(S_v)A2)/(2*ZlA4) ... 

-  (2*exp(-Zl  -  2.*Y.*Zl)*SA2*(S_v)A2)/ZlA4  -  (9*exp(-5*Zl  -  Y.*Zl)*SA2*(S_v)A2)/(2*ZlA4)  + 
(12*exp(-4*Zl  -  Y.*Zl)*SA2*(S_v)A2)/ZlA4  -  (ll*exp(-3*Zl  -  Y.*Zl)*SA2*(S_v)A2)/ZlA4  ... 

+  (4*exp(-2*Zl  -  Y.*Zl)*SA2*(S_v)A2)/ZlA4  -  (exp(-Zl  -  Y.*Zl)*SA2*(S_v)A2)/(2*ZlA4)  + 
(12*SA2*(S_v)A2)/(exp(5*Zl)*ZlA3)  -  (22*SA2*(S_v)A2)/(exp(4*Zl)*ZlA3)  ... 

+  (27*SA2*(S_v)A2)/(2*exp(3*Zl)*ZlA3)  -  (4*SA2*(S_v)A2)/(exp(2*Zl)*ZlA3)  + 

(SA2*(S_v)A2)/(2*exp(Zl)*ZlA3)  -  (SA2*(S_v)A2)./(2*exp(3.*Y.*Zl)*ZlA3) ... 

-  (SA2*(S_v)A2)./(2*exp(Y.*Zl)*ZlA3)  -  (3*exp(-2*Zl  -  3.*Y.*Zl)*SA2*(S_v)A2)/(2*ZlA3)  +  (2*exp(- 
Z1  -  3.*Y.*Zl)*SA2*(S_v)A2)/ZlA3  -  (3*exp(-3*Zl  -  2.*Y.*Zl)*SA2*(S_v)A2)/(2*ZlA3)  ... 

+  (2*exp(-2*Zl  -  2,*Y.*Zl)*SA2*(S_v)A2)/ZlA3  -  (exp(-Zl  -  2.*Y.*Zl)*SA2*(S_v)A2)/(2*ZlA3)  - 
(9*exp(-4*Zl  -  Y.*Zl)*SA2*(S_v)A2)/ZlA3  +  (18*exp(-3*Zl  -  Y.*Zl)*SA2*(S_v)A2)/ZlA3  ... 

-  (25*exp(-2*Zl  -  Y.*Zl)*SA2*(S_v)A2)/(2*ZlA3)  +  (4*exp(-Zl  -  Y.*Zl)*SA2*(S_v)A2)/ZlA3  - 
(9*SA2.*Y.*(S_v)A2)/(2*exp(5*Zl)*ZlA3)  +  (12*SA2.*Y.*(S_v)A2)/(exp(4*Zl)*ZlA3)  ... 

(ll*SA2.*Y.*(S_v)A2)/(exp(3*Zl)*ZlA3)  +  (4*SA2.*Y.*(S_v)A2)/(exp(2*Zl)*ZlA3) 

(SA2.*Y.*(S_v)A2)/(2*exp(Zl)*ZlA3)  +  (SA2.*Y.*(S_v)A2)/(2*exp(Y.*Zl)*ZlA3)  ... 

+  (9*exp(-4*Zl  -  Y.*Zl)*SA2.*Y.*(S_v)A2)/(2*ZlA3)  -  (12*exp(-3*Zl 

Y.*Zl)*SA2.*Y.*(S_v)A2)/ZlA3  +  (1  l*exp(-2*Zl  -  Y.*Zl)*SA2.*Y.*(S_v)A2)/ZlA3  ... 

(4*exp(-Zl  -  Y.*Zl)*SA2.*Y.*(S_v)A2)/ZlA3  +  (SA2*(S_v)A2)/(4*ZlA2)  + 

(9*SA2*(S_v)A2)/(4*exp(6*Zl)*ZlA2)  -  (3*SA2*(S_v)A2)/(exp(5*Zl)*ZlA2)  + 

(19*SA2*(S_v)A2)/(exp(4*Zl)*ZlA2)  ... 

(19*SA2*(S_v)A2)/(exp(3*Zl)*ZlA2)  +  (35*SA2*(S_v)A2)/(4*exp(2*Zl)*ZlA2) 

(2*SA2*(S_v)A2)/(exp(Zl)*ZlA2)  +  (SA2*(S_v)A2)./(4*exp(4.*Y.*Zl)*ZlA2) ... 

+  (SA2*(S_v)A2)./(2*exp(2.*Y.*Zl)*ZlA2)  +  (exp(-Zl  -  3.*Y.*Zl)*SA2*(S_v)A2)/ZlA2  +  (5*exp(-2*Zl 
-  2.*Y.*Zl)*SA2*(S_v)A2)/ZlA2  -  (2*exp(-Zl  -  2.*Y.*Zl)*SA2*(S_v)A2)/ZlA2  ... 

-  (9*exp(-5*Zl  -  Y.*Zl)*SA2*(S_v)A2)/(4*ZlA2)  +  (3*exp(-4*Zl  -  Y.*Zl)*SA2*(S_v)A2)/ZlA2  + 
(5*exp(-3*Zl  -  Y.*Zl)*SA2*(S_v)A2)/ZlA2  -  (exp(-2*Zl  -  Y.*Zl)*SA2*(S_v)A2)/ZlA2  ... 

+  (exp(-Zl  -  Y.*Zl)*SA2*(S_v)A2)/(4*ZlA2)  -  (SA2.*Y.*(S_v)A2)/(2*ZlA2) 

(15*SA2.*Y.*(S_v)A2)/(exp(4*Zl)*ZlA2)  +  (26*SA2.*Y.*(S_v)A2)/(exp(3*Zl)*ZlA2)  ... 

(29*SA2.*Y.*(S_v)A2)/(2*exp(2*Zl)*ZlA2)  +  (4*SA2.*Y.*(S_v)A2)/(exp(Zl)*ZlA2) 

(SA2.*Y.*(S_v)A2)./(2*exp(2.*Y.*Zl)*ZlA2)  -  (3*exp(-2*Zl  -  2.*Y.*Zl)*SA2.*Y.*(S_v)A2)/(2*ZlA2) ... 

+  (2*exp(-Zl  -  2.*Y.*Zl)*SA2.*Y.*(S_v)A2)/ZlA2  +  (SA2.*Y.A2*(S_v)A2)/(4*ZlA2)  + 

(9*SA2.*Y.A2*(S_v)A2)/(4*exp(6*Zl)*ZlA2)  -  (6*SA2.*Y.A2*(S_v)A2)/(exp(5*Zl)*ZlA2) ... 

+  (31*SA2.*Y.A2*(S_v)A2)/(4*exp(4*Zl)*ZlA2)  -  (8*SA2.*Y  A2*(S_v)A2)/(exp(3*Zl)*ZlA2)  + 

(23*SA2.*Y.A2*(S_v)A2)/(4*exp(2*Zl)*ZlA2)  -  (2*SA2.*Y  A2*(S_v)A2)/(exp(Zl)*ZlA2)  ... 

(9*exp(-5*Zl  -  Y.*Zl)*SA2.*Y.A2*(S_v)A2)/(4*ZlA2)  +  (6*exp(-4*Zl 

Y.*Zl)*SA2.*Y.A2*(S_v)A2)/ZlA2  -  (1  l*exp(-3*Zl  -  Y.*Z1)*SA2.*Y  A2*(S_v)A2)/(2*ZlA2)  ... 

+  (2*exp(-2*Zl  -  Y.*Zl)*SA2.*Y.A2*(S_v)A2)/ZlA2  -  (exp(-Zl  -  Y.*Z1)*SA2.*Y ,A2*(S_v)A2)/(4*ZlA2) 
+  (9*SA2*(S_v)A2)/(2*exp(5*Zl)*Zl)  -  (SA2*(S_v)A2)/(exp(4*Zl)*Zl)  ... 

+  (25*SA2*(S_v)A2)/(4*exp(3*Zl)*Zl)  -  (3*SA2*(S_v)A2)/(exp(2*Zl)*Zl)  + 

(3*SA2*(S_v)A2)/(4*exp(Zl)*Zl)  +  (3*exp(-3*Zl  -  2.*Y.*Zl)*SA2*(S_v)A2)/(4*Zl)  ... 

+  (3*exp(-Zl  -  2.*Y.*Zl)*SA2*(S_v)A2)/(4*Zl)  +  (3*exp(-4*Zl  -  Y.*Zl)*SA2*(S_v)A2)/Zl  -  (2*exp(- 
3*Z1  -  Y.*Zl)*SA2*(S_v)A2)/Zl  +  (2*exp(-2*Zl  -  Y.*Zl)*SA2*(S_v)A2)/Zl  ... 

(9*SA2.*Y.*(S_v)A2)/(4*exp(5*Zl)*Zl)  +  (3*SA2.*Y.*(S_v)A2)/(exp(4*Zl)*Zl) 

(1  l*SA2.*Y.*(S_v)A2)/(exp(3*Zl)*Zl)  +  (7*SA2.*Y.*(S_v)A2)/(exp(2*Zl)*Zl) ... 

-  (7*SA2.*Y.*(S_v)A2)/(4*exp(Zl)*Zl)  -  (exp(-Zl  -  2.*Y.*Zl)*SA2.*Y.*(S_v)A2)/Zl  -  (2*exp(-2*Zl  - 
Y.*Zl)*SA2.*Y.*(S_v)A2)/Zl  +  (15*SA2.*Y.A2*(S_v)A2)/(2*exp(5*Zl)*Zl)  ... 

-  (13*  SA2.  *  Y.A2*(S_v)A2)/ (exp(4*Z  1  )*Z  1 )  +  (41*SA2.*Y  ,A2*(S_v)A2)/(4*exp(3*Zl)*Zl)  - 

(6*SA2.*Y.A2*(S_v)A2)/(exp(2*Zl)*Zl)  +  (5*SA2.*Y ,A2*(S_v)A2)/(4*exp(Zl)*Zl)  ... 

+  (3*exp(-3*Zl  -  2.*Y.*Zl)*SA2.*Y.A2*(S_v)A2)/(4*Zl)  -  (exp(-2*Zl 

2.*Y.*Zl)*SA2.*Y.A2*(S_v)A2)/Zl  +  (exp(-Zl  -  2.*Y.*Z1)*SA2.*Y ,A2*(S_v)A2)/(4*Zl)  ... 
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(9*SA2.*Y.A3*(S_v)A2)/(4*exp(5*Zl)*Zl)  +  (6*SA2.*Y  A3*(S_v)A2)/(exp(4*Zl)*Zl) 

(1  l*SA2.*Y.A3*(S_v)A2)/(2*exp(3*Zl)*Zl)  +  (2*SA2.*Y.A3*(S_v)A2)/(exp(2*Zl)*Zl) ... 

(SA2.*Y.A3*(S_v)A2)/(4*exp(Zl)*Zl)  -  (3*SA2*Zl*(S_v)A2)/(4*exp(5*Zl)) 

(3*SA2*Zl*(S_v)A2)/(4*exp(3*Zl))  +  (SA2.*Y.*Zl*(S_v)A2)/exp(3*Zl)  + 

(SA2.*Y.A2*Zl*(S_v)A2)/exp(4*Zl) ... 

+  (SA2.*Y.A2*Z  1  *(S_v)A2)/(2*exp(3*Zl ))  -  (SA2.*Y  A3*Zl*(S_v)A2)/exp(3*Zl)  + 

(3*SA2.*Y.A4*Zl*(S_v)A2)/(4*exp(5*Zl))  -  (SA2.*Y.A4*Zl*(S_v)A2)/exp(4*Zl) ... 

+  (SA2.*Y.A4*Zl*(S_v)A2)/(4*exp(3*Zl))  +  (SA2*ZlA2*(S_v)A2)/(4*exp(4*Zl)) 

(SA2.*Y.A2*ZlA2*(S_v)A2)/(2*exp(4*Zl))  +  (SA2.*Y.A4*ZlA2*(S_v)A2)/(4*exp(4*Zl)); 


Nsl=Nfl+Nc+Nyl; 
Phi  1  =N  fl  ./[Nc+Ny  1  ] ; 
Be  1=1  ./[1+Phil]; 
Gfl=Nfl  ./Nsl; 
Ghl=[Nc+Nyl]./Nsl; 
Nhl=Nc+Nyl; 


Z2=7.5; 

Nf2=Br*[(Z2A2).*exp(-2.*Y.*Z2)+(Z2A2)*exp(-2*Z2)-2*Z2A2.*exp(-Z2-Y.*Z2)]; 

Ny2=l  -  exp(-2*Z2)  +  exp(-Z2  -  Y.*Z2)  -  (2*S)/exp(2*Z2)  +  2*exp(-Z2  -  Y.*Z2)*S  -  SA2/exp(2*Z2)  + 
exp(-Z2  -  Y.*Z2)*SA2  -  2.*Y  +  Y.A2  +  Y  A2/exp(2*Z2)  -  exp(-Z2  -  Y.*Z2).*Y  A2  ... 

+  (2*S.*Y.A2)/exp(2*Z2)  -  2*exp(-Z2  -  Y.*Z2)*S.*Y.A2  +  (SA2.*Y  A2)/exp(2*Z2)  -  exp(-Z2  - 
Y.*Z2)*SA2.*Y.A2  +  l/(exp(2*Z2)*Z2A2)  +  l./(exp(2.*Y.*Z2)*Z2A2)  ... 

-  (2*exp(-Z2  -  Y.*Z2))/Z2A2  +  (2*S)/(exp(2*Z2)*Z2A2)  +  (2*S)./(exp(2.*Y.*Z2)*Z2A2)  -  (4*exp(-Z2  - 
Y.*Z2)*S)/Z2A2  +  SA2/(exp(2*Z2)*Z2A2)  +  SA2./(exp(2.*Y.*Z2)*Z2A2)  ... 

-  (2*exp(-Z2  -  Y.*Z2)*SA2)/Z2A2  +  2/(exp(Z2)*Z2)  -  2./(exp(Y.*Z2)*Z2)  +  (2*S)/(exp(Z2)*Z2)  - 
(2*S)./(exp(Y.*Z2)*Z2)  -  (2.*Y)/(exp(Z2)*Z2)  +  (2.*Y)/(exp(Y.*Z2)*Z2) ... 

-  (2*S.*Y)/(exp(Z2)*Z2)  +  (2*S.*Y)/(exp(Y.*Z2)*Z2)  -  Z2/exp(Z2)  -  (S*Z2)/exp(Z2)  + 

(Y.*Z2)/exp(Z2)  +  (S.*Y.*Z2)/exp(Z2)  +(Y  A2*Z2)/exp(Z2)  +  (S.*Y.A2*Z2)/exp(Z2)  -  (Y  A3*Z2)/exp(Z2) 

-  (S.*Y.A3*Z2)/exp(Z2)  +  Z2A2/(4*exp(2*Z2))  +  (S*Z2A2)/(2*exp(2*Z2))  +  (SA2*Z2A2)/(4*exp(2*Z2)) 

-  (Y.A2*Z2A2)/(2*exp(2*Z2))  -  (S.*Y.A2*Z2A2)/exp(2*Z2) ... 

-  (SA2.*Y.A2*Z2A2)/(2*exp(2*Z2))  +  (Y.A4*Z2A2)/(4*exp(2*Z2))  +  (S.*Y.A4*Z2A2)/(2*exp(2*Z2))  + 
(SA2.*Y.A4*Z2A2)/(4*exp(2*Z2))  -  (7*S*(S_v))/(2*exp(3*Z2)) ... 

+  (2*S*(S_v))/exp(2*Z2)  +  (S*(S_v))/exp(Z2)  -  (exp(-Z2  -  2.*Y.*Z2)*S*(S_v))/2  - 

(5*SA2*(S_v))/exp(3*Z2)  +  (2*SA2*(S_v))/exp(2*Z2)  -  (SA2*(S_v))/(2*exp(Z2)) ... 

-  (exp(-Z2  -  2.*Y.*Z2)*SA2*(S_v))/2  -  (2*S.*Y.*(S_v))/exp(2*Z2)  -  (3*S.*Y.*(S_v))/exp(Z2)  + 
(3*SA2.*Y.*(S_v))/(2*exp(3*Z2))  -  (2*SA2.*Y.*(S_v))/exp(2*Z2)  ... 

+  (SA2.*Y.*(S_v))/(2*exp(Z2))  +  (13*S.*Y.A2*(S_v))/(2*exp(3*Z2))  -  (4*S.*Y  A2*(S_v))/exp(2*Z2)  + 
(3*S.*Y.A2*(S_v))/exp(Z2)  +  (exp(-Z2  -  2.*Y.*Z2)*S.*Y.A2*(S_v))/2  ... 

+  (5*SA2.*Y.A2*(S_v))/exp(3*Z2)  -  (2*SA2.*Y  A2*(S_v))/exp(2*Z2)  +  (SA2.*Y.A2*(S_v))/(2*exp(Z2)) 
+  (exp(-Z2  -  2.*Y.*Z2)*SA2.*Y.A2*(S_v))/2  -  (3*S.*Y.A3*(S_v))/exp(3*Z2) ... 

+  (4*S.*Y.A3*(S_v))/exp(2*Z2)  -  (S.*Y  A3*(S_v))/exp(Z2)  -  (3*SA2.*Y.A3*(S_v))/(2*exp(3*Z2))  + 
(2*SA2.*Y.A3*(S_v))/exp(2*Z2)  -  (SA2.*Y.A3*(S_v))/(2*exp(Z2))  ... 

+  (3*S*(S_v))/(exp(4*Z2)*Z2A3)  -  (4*S*(S_v))/(exp(3*Z2)*Z2A3)  +  (S*(S_v))/(exp(2*Z2)*Z2A3)  + 
(S*(S_v))./(exp(2.*Y.*Z2)*Z2A3)  +  (3*exp(-2*Z2  -  2.*Y.*Z2)*S*(S_v))/Z2A3  ... 

-  (4*exp(-Z2  -  2.*Y.*Z2)*S*(S_v))/Z2A3  -  (6*exp(-3*Z2  -  Y.*Z2)*S*(S_v))/Z2A3  +  (8*exp(-2*Z2  - 
Y.*Z2)*S*(S_v))/Z2A3  -  (2*exp(-Z2  -  Y.*Z2)*S*(S_v))/Z2A3  ... 

+  (3*SA2*(S_v))/(exp(4*Z2)*Z2A3)  -  (4*SA2*(S_v))/(exp(3*Z2)*Z2A3)  + 

(SA2*(S_v))/(exp(2*Z2)*Z2A3)  +  (SA2*(S_v))./(exp(2.*Y.*Z2)*Z2A3)  +  (3*exp(-2*Z2 

2.*Y.*Z2)*SA2*(S_v))/Z2A3  ... 

-  (4*exp(-Z2  -  2.*Y.*Z2)*SA2*(S_v))/Z2A3  -  (6*exp(-3*Z2  -  Y.*Z2)*SA2*(S_v))/Z2A3  +  (8*exp(-2*Z2 

-  Y.*Z2)*SA2*(S_v))/Z2A3  -  (2*exp(-Z2  -  Y.*Z2)*SA2*(S_v))/Z2A3  ... 

+  (1  l*S*(S_v))/(exp(3*Z2)*Z2A2)  -  (8*S*(S_v))/(exp(2*Z2)*Z2A2)  +  (2*S*(S_v))/(exp(Z2)*Z2A2)  - 
(S*(S_v))./(exp(3.*Y.*Z2)*Z2A2)  -  (2*S*(S_v))./(exp(Y.*Z2)*Z2A2) ... 
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-  (exp(-Z2  -  2.*Y.*Z2)*S*(S_v))/Z2A2  -  (9*exp(-2*Z2  -  Y.*Z2)*S*(S_v))/Z2A2  +  (8*exp(-Z2  - 
Y.*Z2)*S*(S_v))/Z2A2  +  (8*SA2*(S_v))/(exp(3*Z2)*Z2A2);  ... 

(4*SA2*(S_v))/(exp(2*Z2)*Z2A2)  +  (SA2*(S_v))/(exp(Z2)*Z2A2) 

(SA2*(S_v))./(exp(3.*Y.*Z2)*Z2A2)  -  (SA2*(S_v))./(exp(Y.*Z2)*Z2A2)  -  (exp(-Z2 

2,*Y.*Z2)*SA2*(S_v))/Z2A2  ... 

-  (6*exp(-2*Z2  -  Y.*Z2)*SA2*(S_v))/Z2A2  +  (4*exp(-Z2  -  Y.*Z2)*SA2*(S_v))/Z2A2  - 

(6*S.*Y.*(S_v))/(exp(3*Z2)*Z2A2)  +  (8*S.*Y.*(S_v))/(exp(2*Z2)*Z2A2)  ... 

-  (2*S.*Y.*(S_v))/(exp(Z2)*Z2A2)  +  (2*S.*Y.*(S_v))/(exp(Y.*Z2)*Z2A2)  +  (6*exp(-2*Z2  - 

Y.*Z2)*S.*Y.*(S_v))/Z2A2  -  (8*exp(-Z2  -  Y.*Z2)*S.*Y.*(S_v))/Z2A2  ... 

(3*SA2.*Y.*(S_v))/(exp(3*Z2)*Z2A2)  +  (4*SA2.*Y.*(S_v))/(exp(2*Z2)*Z2A2) 

(SA2.*Y.*(S_v))/(exp(Z2)*Z2A2)  +  (SA2.*Y.*(S_v))/(exp(Y.*Z2)*Z2A2) ... 

+  (3*exp(-2*Z2  -  Y.*Z2)*SA2.*Y.*(S_v))/Z2A2  -  (4*exp(-Z2  -  Y.*Z2)*SA2.*Y.*(S_v))/Z2A2  + 
(S*(S_v))/Z2  +  (2*S*(S_v))/(exp(3*Z2)*Z2)  +  (9*S*(S_v))/(exp(2*Z2)*Z2)... 

-  (4*S*(S_v))/(exp(Z2)*Z2)  +  (S*(S_v))./(exp(2.*Y.*Z2)*Z2)  -  (2*exp(-2*Z2  -  Y.*Z2)*S*(S_v))/Z2  + 
(exp(-Z2  -  Y.*Z2)*S*(S_v))/Z2  +  (2*SA2*(S_v))/(exp(3*Z2)*Z2)  ... 

+  (SA2*(S_v))/(exp(2*Z2)*Z2)  -  (2*exp(-2*Z2  -  Y.*Z2)*SA2*(S_v))/Z2  -  (exp(-Z2  - 

Y.*Z2)*SA2*(S_v))/Z2  -  (2*S.*Y.*(S_v))/Z2  -  (13*S.*Y.*(S_v))/(exp(2*Z2)*Z2) ... 

+  (8*S.*Y.*(S_v))/(exp(Z2)*Z2)  -  (S.*Y.*(S_v))./(exp(2.*Y.*Z2)*Z2) 

(2*SA2.*Y.*(S_v))/(exp(2*Z2)*Z2)  +  (2*exp(-Z2  -  Y.*Z2)*SA2.*Y.*(S_v))/Z2  +  (S.*Y.A2*(S_v))/Z2  ... 

+  (3*S.*Y.A2*(S_v))/(exp(4*Z2)*Z2)  -  (4*S.*Y  A2*(S_v))/(exp(3*Z2)*Z2)  + 

(4*S.*Y.A2*(S_v))/(exp(2*Z2)*Z2)  -  (4*S.*Y  A2*(S_v))/(exp(Z2)*Z2) ... 

-  (3*exp(-3*Z2  -  Y.*Z2)*S.*Y.A2*(S_v))/Z2  +  (4*exp(-2*Z2  -  Y.*Z2)*S.*Y.A2*(S_v))/Z2  -  (exp(-Z2  - 
Y.*Z2)*S.*Y.A2*(S_v))/Z2  +  (3*SA2.*Y  A2*(S_v))/(exp(4*Z2)*Z2) ... 

-  (4*SA2.*Y.A2*(S_v))/(exp(3*Z2)*Z2)  +  (SA2.*Y  A2*(S_v))/(exp(2*Z2)*Z2)  -  (3*exp(-3*Z2  - 
Y.*Z2)*SA2.*Y.A2*(S_v))/Z2  +  (4*exp(-2*Z2  -  Y.*Z2)*SA2.*Y ,A2*(S_v))/Z2  ... 

(exp(-Z2  -  Y.*Z2)*SA2.*Y.A2*(S_v))/Z2  -  (3*S*Z2*(S_v))/(4*exp(4*Z2)) 

(7*S*Z2*(S_v))/(4*exp(2*Z2))  -  (3*SA2*Z2*(S_v))/(4*exp(4*Z2))  -  (3*SA2*Z2*(S_v))/(4*exp(2*Z2)) ... 

+  (2*S.*Y.*Z2*(S_v))/exp(2*Z2)  +  (SA2.*Y.*Z2*(S_v))/exp(2*Z2)  +  (S.*Y  A2*Z2*(S_v))/exp(3*Z2)  + 
(3*S.*Y  A2*Z2*(S_v))/(2*exp(2*Z2))  +  (SA2.*Y ,A2*Z2*(S_v))/exp(3*Z2)  ... 

+  (SA2.*Y.A2*Z2*(S_v))/(2*exp(2*Z2))  -  (2*S.*Y  ,A3*Z2*(S_v))/exp(2*Z2) 

(SA2.*Y.A3*Z2*(S_v))/exp(2*Z2)  +  (3*S.*Y.A4*Z2*(S_v))/(4*exp(4*Z2)) 

(S.*Y.A4*Z2*(S_v))/exp(3*Z2) ... 

+  (S.*Y.A4*Z2*(S_v))/(4*exp(2*Z2))  +  (3*SA2.*Y.A4*Z2*(S_v))/(4*exp(4*Z2)) 

(SA2.*Y.A4*Z2*(S_v))/exp(3*Z2)  +  (SA2.*Y.A4*Z2*(S_v))/(4*exp(2*Z2))  + 

(S*Z2A2*(S_v))/(2*exp(3*Z2))  ... 

+  (SA2*Z2A2*(S_v))/(2*exp(3*Z2))  -  (S.*Y  A2*Z2A2*(S_v))/exp(3*Z2) 

(SA2.*Y.A2*Z2A2*(S_v))/exp(3*Z2)  +  (S.*Y.A4*Z2A2*(S_v))/(2*exp(3*Z2)) ... 

+  (SA2.*Y.A4*Z2A2*(S_v))/(2*exp(3*Z2))  +  (9*SA2*(S_v)A2)/(16*exp(6*Z2)) 

(23*SA2*(S_v)A2)/(8*exp(4*Z2))  +  (2*SA2*(S_v)A2)/exp(3*Z2)  +  (SA2*(S_v)A2)/(16*exp(2*Z2)) ... 

-  (exp(-2*Z2  -  2.*Y.*Z2)*SA2*(S_v)A2)/2  -  exp(-3*Z2  -  Y.*Z2)*SA2*(S_v)A2  - 

(2*SA2.*Y.*(S_v)A2)/exp(3*Z2)  -  (SA2.*Y.*(S_v)A2)/exp(2*Z2)  +  (9*SA2.*Y ,A2*(S_v)A2)/(8*exp(6*Z2)) 

(3*SA2.*Y.A2*(S_v)A2)/(2*exp(5*Z2))  +  (ll*SA2.*Y.A2*(S_v)A2)/(2*exp(4*Z2)) 

(7*SA2.*Y.A2*(S_v)A2)/(2*exp(3*Z2))  +  (15*SA2.*Y.A2*(S_v)A2)/(8*exp(2*Z2))  ... 

+  (exp(-2*Z2  -  2.*Y.*Z2)*SA2.*Y.A2*(S_v)A2)/2  +  exp(-3*Z2  -  Y.*Z2)*SA2.*Y ,A2*(S_v)A2  - 

(3*SA2.*Y.A3*(S_v)A2)/exp(4*Z2)  +  (4*SA2.*Y.A3*(S_v)A2)/exp(3*Z2)  ... 

(SA2.*Y.A3*(S_v)A2)/exp(2*Z2)  +  (9*SA2.*Y.A4*(S_v)A2)/(16*exp(6*Z2)) 

(3*SA2.*Y.A4*(S_v)A2)/(2*exp(5*Z2))  +  (ll*SA2.*Y.A4*(S_v)A2)/(8*exp(4*Z2))  ... 

(SA2.*Y.A4*(S_v)A2)/(2*exp(3*Z2))  +  (SA2.*Y.A4*(S_v)A2)/(16*exp(2*Z2))  + 

(9*SA2*(S_v)A2)/(4*exp(6*Z2)*Z2A4)  -  (6*SA2*(S_v)A2)/(exp(5*Z2)*Z2A4)  ... 

+  (1  l*SA2*(S_v)A2)/(2*exp(4*Z2)*Z2A4)  -  (2*SA2*(S_v)A2)/(exp(3*Z2)*Z2A4)  + 

(SA2*(S_v)A2)/(4*exp(2*Z2)*Z2A4)  +  (SA2*(S_v)A2)./(4*exp(2.*Y.*Z2)*Z2A4) ... 

+  (9*exp(-4*Z2  -  2.*Y.*Z2)*SA2*(S_v)A2)/(4*Z2A4)  -  (6*exp(-3*Z2  -  2.*Y.*Z2)*SA2*(S_v)A2)/Z2A4  + 
(1  l*exp(-2*Z2  -  2,*Y.*Z2)*SA2*(S_v)A2)/(2*Z2A4) ... 

-  (2*exp(-Z2  -  2.*Y.*Z2)*SA2*(S_v)A2)/Z2A4  -  (9*exp(-5*Z2  -  Y.*Z2)*SA2*(S_v)A2)/(2*Z2A4)  + 
(12*exp(-4*Z2  -  Y.*Z2)*SA2*(S_v)A2)/Z2A4  -  (ll*exp(-3*Z2  -  Y.*Z2)*SA2*(S_v)A2)/Z2A4  ... 
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+  (4*exp(-2*Z2  -  Y.*Z2)*SA2*(S_v)A2)/Z2A4  -  (exp(-Z2  -  Y.*Z2)*SA2*(S_v)A2)/(2*Z2A4)  + 
(12*SA2*(S_v)A2)/(exp(5*Z2)*Z2A3)  -  (22*SA2*(S_v)A2)/(exp(4*Z2)*Z2A3)  ... 

+  (27*SA2*(S_v)A2)/(2*exp(3*Z2)*Z2A3)  -  (4*SA2*(S_v)A2)/(exp(2*Z2)*Z2A3)  + 

(SA2*(S_v)A2)/(2*exp(Z2)*Z2A3)  -  (SA2*(S_v)A2)./(2*exp(3.*Y.*Z2)*Z2A3) ... 

-  (SA2*(S_v)A2)./(2*exp(Y.*Z2)*Z2A3)  -  (3*exp(-2*Z2  -  3.*Y.*Z2)*SA2*(S_v)A2)/(2*Z2A3)  +  (2*exp(- 
Z2  -  3.*Y.*Z2)*SA2*(S_v)A2)/Z2A3  -  (3*exp(-3*Z2  -  2.*Y.*Z2)*SA2*(S_v)A2)/(2*Z2A3)  ... 

+  (2*exp(-2*Z2  -  2,*Y.*Z2)*SA2*(S_v)A2)/Z2A3  -  (exp(-Z2  -  2.*Y.*Z2)*SA2*(S_v)A2)/(2*Z2A3)  - 
(9*exp(-4*Z2  -  Y.*Z2)*SA2*(S_v)A2)/Z2A3  +  (18*exp(-3*Z2  -  Y.*Z2)*SA2*(S_v)A2)/Z2A3  ... 

-  (25*exp(-2*Z2  -  Y.*Z2)*SA2*(S_v)A2)/(2*Z2A3)  +  (4*exp(-Z2  -  Y.*Z2)*SA2*(S_v)A2)/Z2A3  - 
(9*SA2.*Y.*(S_v)A2)/(2*exp(5*Z2)*Z2A3)  +  (12*SA2.*Y.*(S_v)A2)/(exp(4*Z2)*Z2A3)  ... 

(1  l*SA2.*Y.*(S_v)A2)/(exp(3*Z2)*Z2A3)  +  (4*SA2.*Y.*(S_v)A2)/(exp(2*Z2)*Z2A3) 

(SA2.*Y.*(S_v)A2)/(2*exp(Z2)*Z2A3)  +  (SA2.*Y.*(S_v)A2)/(2*exp(Y.*Z2)*Z2A3)  ... 

+  (9*exp(-4*Z2  -  Y.*Z2)*SA2.*Y.*(S_v)A2)/(2*Z2A3)  -  (12*exp(-3*Z2 

Y.*Z2)*SA2.*Y.*(S_v)A2)/Z2A3  +  (1  l*exp(-2*Z2  -  Y.*Z2)*SA2.*Y.*(S_v)A2)/Z2A3  ... 

(4*exp(-Z2  -  Y.*Z2)*SA2.*Y.*(S_v)A2)/Z2A3  +  (SA2*(S_v)A2)/(4*Z2A2)  + 

(9*SA2*(S_v)A2)/(4*exp(6*Z2)*Z2A2)  -  (3*SA2*(S_v)A2)/(exp(5*Z2)*Z2A2)  + 

(19*SA2*(S_v)A2)/(exp(4*Z2)*Z2A2)  ... 

(19*SA2*(S_v)A2)/(exp(3*Z2)*Z2A2)  +  (35*SA2*(S_v)A2)/(4*exp(2*Z2)*Z2A2) 

(2*SA2*(S_v)A2)/(exp(Z2)*Z2A2)  +  (SA2*(S_v)A2)./(4*exp(4.*Y.*Z2)*Z2A2) ... 

+  (SA2*(S_v)A2)./(2*exp(2.*Y.*Z2)*Z2A2)  +  (exp(-Z2  -  3.*Y.*Z2)*SA2*(S_v)A2)/Z2A2  +  (5*exp(-2*Z2 
-  2.*Y.*Z2)*SA2*(S_v)A2)/Z2A2  -  (2*exp(-Z2  -  2.*Y.*Z2)*SA2*(S_v)A2)/Z2A2  ... 

-  (9*exp(-5*Z2  -  Y.*Z2)*SA2*(S_v)A2)/(4*Z2A2)  +  (3*exp(-4*Z2  -  Y.*Z2)*SA2*(S_v)A2)/Z2A2  + 
(5*exp(-3*Z2  -  Y. *Z2 )* SA2*(S_v)A2)/Z2A2  -  (exp(-2*Z2  -  Y.*Z2)*SA2*(S_v)A2)/Z2A2  ... 

+  (exp(-Z2  -  Y.*Z2)*SA2*(S_v)A2)/(4*Z2A2)  -  (SA2.*Y.*(S_v)A2)/(2*Z2A2) 

(15*SA2.*Y.*(S_v)A2)/(exp(4*Z2)*Z2A2)  +  (26*SA2.*Y.*(S_v)A2)/(exp(3*Z2)*Z2A2)  ... 

(29*SA2.*Y.*(S_v)A2)/(2*exp(2*Z2)*Z2A2)  +  (4*SA2.*Y.*(S_v)A2)/(exp(Z2)*Z2A2) 

(SA2.*Y.*(S_v)A2)./(2*exp(2.*Y.*Z2)*Z2A2)  -  (3*exp(-2*Z2  -  2.*Y.*Z2)*SA2.*Y.*(S_v)A2)/(2*Z2A2) ... 

+  (2*exp(-Z2  -  2.*Y.*Z2)*SA2.*Y.*(S_v)A2)/Z2A2  +  (SA2.*Y.A2*(S_v)A2)/(4*Z2A2)  + 

(9*SA2.*Y.A2*(S_v)A2)/(4*exp(6*Z2)*Z2A2)  -  (6*SA2.*Y.A2*(S_v)A2)/(exp(5*Z2)*Z2A2) ... 

+  (31*SA2.*Y.A2*(S_v)A2)/(4*exp(4*Z2)*Z2A2)  -  (8*SA2.*Y  ,A2*(S_v)A2)/(exp(3*Z2)*Z2A2)  + 

(23*SA2.*Y.A2*(S_v)A2)/(4*exp(2*Z2)*Z2A2)  -  (2*SA2.*Y ,A2*(S_v)A2)/(exp(Z2)*Z2A2)  ... 

(9*exp(-5*Z2  -  Y.*Z2)*SA2.*Y.A2*(S_v)A2)/(4*Z2A2)  +  (6*exp(-4*Z2 

Y.*Z2)*SA2.*Y.A2*(S_v)A2)/Z2A2  -  (1  l*exp(-3*Z2  -  Y.*Z2)*SA2.*Y.A2*(S_v)A2)/(2*Z2A2)  ... 

+  (2*exp(-2*Z2  -  Y.*Z2)*SA2.*Y.A2*(S_v)A2)/Z2A2  -  (exp(-Z2  -  Y.*Z2)*SA2.*Y ,A2*(S_v)A2)/(4*Z2A2) 
+  (9*SA2*(S_v)A2)/(2*exp(5*Z2)*Z2)  -  (SA2*(S_v)A2)/(exp(4*Z2)*Z2)  ... 

+  (25*SA2*(S_v)A2)/(4*exp(3*Z2)*Z2)  -  (3*SA2*(S_v)A2)/(exp(2*Z2)*Z2)  + 

(3*SA2*(S_v)A2)/(4*exp(Z2)*Z2)  +  (3*exp(-3*Z2  -  2.*Y.*Z2)*SA2*(S_v)A2)/(4*Z2)  ... 

+  (3*exp(-Z2  -  2.*Y.*Z2)*SA2*(S_v)A2)/(4*Z2)  +  (3*exp(-4*Z2  -  Y.*Z2)*SA2*(S_v)A2)/Z2  -  (2*exp(- 
3*Z2  -  Y . *Z2 ) * S A2 * ( S_v) A2)/Z2  +  (2*exp(-2*Z2  -  Y.*Z2)*SA2*(S_v)A2)/Z2  ... 

(9*SA2.*Y.*(S_v)A2)/(4*exp(5*Z2)*Z2)  +  (3*SA2.*Y.*(S_v)A2)/(exp(4*Z2)*Z2) 

(1  l*SA2.*Y.*(S_v)A2)/(exp(3*Z2)*Z2)  +  (7*SA2.*Y.*(S_v)A2)/(exp(2*Z2)*Z2) ... 

-  (7*SA2.*Y.*(S_v)A2)/(4*exp(Z2)*Z2)  -  (exp(-Z2  -  2.*Y.*Z2)*SA2.*Y.*(S_v)A2)/Z2  -  (2*exp(-2*Z2  - 
Y.*Z2)*SA2.*Y.*(S_v)A2)/Z2  +  (15*SA2.*Y  A2*(S_v)A2)/(2*exp(5*Z2)*Z2)  ... 

-  (13*  SA2.  *  Y.A2*(S_v)A2)/ (exp(4*Z2)*Z2)  +  (41*SA2.*Y  ,A2*(S_v)A2)/(4*exp(3*Z2)*Z2)  - 

(6*SA2.*Y  A2*(S_v)A2)/(exp(2*Z2)*Z2)  +  (5*SA2.*Y ,A2*(S_v)A2)/(4*exp(Z2)*Z2)  ... 

+  (3*exp(-3*Z2  -  2.*Y.*Z2)*SA2.*Y.A2*(S_v)A2)/(4*Z2)  -  (exp(-2*Z2 

2.*Y.*Z2)*SA2.*Y.A2*(S_v)A2)/Z2  +  (exp(-Z2  -  2.*Y.*Z2)*SA2.*Y ,A2*(S_v)A2)/(4*Z2)  ... 

(9*SA2.*Y.A3*(S_v)A2)/(4*exp(5*Z2)*Z2)  +  (6*SA2.*Y  ,A3*(S_v)A2)/(exp(4*Z2)*Z2) 

(1  l*SA2.*Y.A3*(S_v)A2)/(2*exp(3*Z2)*Z2)  +  (2*SA2.*Y ,A3*(S_v)A2)/(exp(2*Z2)*Z2) ... 

(SA2.*Y.A3*(S_v)A2)/(4*exp(Z2)*Z2)  -  (3*SA2*Z2*(S_v)A2)/(4*exp(5*Z2)) 

(3*SA2*Z2*(S_v)A2)/(4*exp(3*Z2))  +  (SA2.*Y.*Z2*(S_v)A2)/exp(3*Z2)  + 

(SA2.*Y.A2*Z2*(S_v)A2)/exp(4*Z2) ... 

+  (SA2.*Y.A2*Z2*(S_v)A2)/(2*exp(3*Z2))  -  (SA2.*Y.A3*Z2*(S_v)A2)/exp(3*Z2)  + 

(3*SA2.*Y.A4*Z2*(S_v)A2)/(4*exp(5*Z2))  -  (SA2.*Y ,A4*Z2*(S_v)A2)/exp(4*Z2) ... 

+  (SA2.*Y.A4*Z2*(S_v)A2)/(4*exp(3*Z2))  +  (SA2*Z2A2*(S_v)A2)/(4*exp(4*Z2)) 

(SA2.*Y.A2*Z2A2*(S_v)A2)/(2*exp(4*Z2))  +  (SA2.*Y.A4*Z2A2*(S_v)A2)/(4*exp(4*Z2)); 
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Ns2=Nf2+Nc+Ny2; 

Phi2=Nf2  ./[Nc+Ny2] ; 

Be2=l./[1+Phi2]; 

Gf2=Nf2./Ns2; 

Gh2=[Nc+Ny2]./Ns2; 

Nh2=Nc+Ny2; 


Z3=10; 

NG=Br*[(Z3A2).*exp(-2.*Y.*Z3)+(Z3A2)*exp(-2*Z3)-2*Z3A2.*exp(-Z3-Y.*Z3)]; 

Ny3=l  -  exp(-2*Z3)  +  exp(-Z3  -  Y.*Z3)  -  (2*S)/exp(2*Z3)  +  2*exp(-Z3  -  Y.*Z3)*S  -  SA2/exp(2*Z3)  + 
exp(-Z3  -  Y.*Z3)*SA2  -  2.*Y  +  Y.A2  +  Y  A2/exp(2*Z3)  -  exp(-Z3  -  Y.*Z3).*Y.A2  ... 

+  (2*S.*Y.A2)/exp(2*Z3)  -  2*exp(-Z3  -  Y.*Z3)*S.*Y ,A2  +  (SA2.*Y.A2)/exp(2*Z3)  -  exp(-Z3  - 
Y.*Z3)*SA2.*Y.A2  +  l/(exp(2*Z3)*Z3A2)  +  l./(exp(2.*Y.*Z3)*Z3A2)  ... 

-  (2*exp(-Z3  -  Y.*Z3))/Z3A2  +  (2*S)/(exp(2*Z3)*Z3A2)  +  (2*S)./(exp(2.*Y.*Z3)*Z3A2)  -  (4*exp(-Z3  - 
Y.*Z3)*S)/Z3A2  +  SA2/(exp(2*Z3)*Z3A2)  +  SA2./(exp(2.*Y.*Z3)*Z3A2)  ... 

-  (2*exp(-Z3  -  Y.*Z3)*SA2)/Z3A2  +  2/(exp(Z3)*Z3)  -  2./(exp(Y.*Z3)*Z3)  +  (2*S)/(exp(Z3)*Z3)  - 
(2*S)./(exp(Y.*Z3)*Z3)  -  (2.*Y)/(exp(Z3)*Z3)  +  (2.*Y)/(exp(Y.*Z3)*Z3) ... 

-  (2*S.*Y)/(exp(Z3)*Z3)  +  (2*S.*Y)/(exp(Y.*Z3)*Z3)  -  Z3/exp(Z3)  -  (S*Z3)/exp(Z3)  + 

(Y.*Z3)/exp(Z3)  +  (S.*Y.*Z3)/exp(Z3)  +(Y  A2*Z3)/exp(Z3)  +  (S.*Y.A2*Z3)/exp(Z3)  -  (Y  A3*Z3)/exp(Z3) 

-  (S.*Y.A3*Z3)/exp(Z3)  +  Z3A2/(4*exp(2*Z3))  +  (S*Z3A2)/(2*exp(2*Z3))  +  (SA2*Z3A2)/(4*exp(2*Z3)) 

-  (Y  A2*Z3A2)/(2*exp(2*Z3))  -  (S.*Y.A2*Z3A2)/exp(2*Z3) ... 

-  (SA2.*Y.A2*Z3A2)/(2*exp(2*Z3))  +  (Y.A4*Z3A2)/(4*exp(2*Z3))  +  (S.*Y.A4*Z3A2)/(2*exp(2*Z3))  + 
(SA2.*Y.A4*Z3A2)/(4*exp(2*Z3))  -  (7*S*(S_v))/(2*exp(3*Z3)) ... 

+  (2*S*(S_v))/exp(2*Z3)  +  (S*(S_v))/exp(Z3)  -  (exp(-Z3  -  2.*Y.*Z3)*S*(S_v))/2  - 

(5*SA2*(S_v))/exp(3*Z3)  +  (2*SA2*(S_v))/exp(2*Z3)  -  (SA2*(S_v))/(2*exp(Z3)) ... 

-  (exp(-Z3  -  2.*Y.*Z3)*SA2*(S_v))/2  -  (2*S.*Y.*(S_v))/exp(2*Z3)  -  (3*S.*Y.*(S_v))/exp(Z3)  + 
(3*SA2.*Y.*(S_v))/(2*exp(3*Z3))  -  (2*SA2.*Y.*(S_v))/exp(2*Z3)  ... 

+  (SA2.*Y.*(S_v))/(2*exp(Z3))  +  (13*S.*Y.A2*(S_v))/(2*exp(3*Z3))  -  (4*S.*Y  A2*(S_v))/exp(2*Z3)  + 
(3*S.*Y.A2*(S_v))/exp(Z3)  +  (exp(-Z3  -  2.*Y.*Z3)*S.*Y.A2*(S_v))/2  ... 

+  (5*SA2.*Y.A2*(S_v))/exp(3*Z3)  -  (2*SA2.*Y  A2*(S_v))/exp(2*Z3)  +  (SA2.*Y.A2*(S_v))/(2*exp(Z3)) 
+  (exp(-Z3  -  2.*Y.*Z3)*SA2.*Y.A2*(S_v))/2  -  (3*S.*Y.A3*(S_v))/exp(3*Z3) ... 

+  (4*S.*Y.A3*(S_v))/exp(2*Z3)  -  (S.*Y  A3*(S_v))/exp(Z3)  -  (3*SA2.*Y.A3*(S_v))/(2*exp(3*Z3))  + 
(2*SA2.*Y.A3*(S_v))/exp(2*Z3)  -  (SA2.*Y.A3*(S_v))/(2*exp(Z3))  ... 

+  (3*S*(S_v))/(exp(4*Z3)*Z3A3)  -  (4*S*(S_v))/(exp(3*Z3)*Z3A3)  +  (S*(S_v))/(exp(2*Z3)*Z3A3)  + 
(S*(S_v))./(exp(2.*Y.*Z3)*Z3A3)  +  (3*exp(-2*Z3  -  2.*Y.*Z3)*S*(S_v))/Z3A3  ... 

-  (4*exp(-Z3  -  2.*Y.*Z3)*S*(S_v))/Z3A3  -  (6*exp(-3*Z3  -  Y.*Z3)*S*(S_v))/Z3A3  +  (8*exp(-2*Z3  - 
Y.*Z3)*S*(S_v))/Z3A3  -  (2*exp(-Z3  -  Y.*Z3)*S*(S_v))/Z3A3  ... 

+  (3*SA2*(S_v))/(exp(4*Z3)*Z3A3)  -  (4*SA2*(S_v))/(exp(3*Z3)*Z3A3)  + 

(SA2*(S_v))/(exp(2*Z3)*Z3A3)  +  (SA2*(S_v))./(exp(2.*Y.*Z3)*Z3A3)  +  (3*exp(-2*Z3 

2.*Y.*Z3)*SA2*(S_v))/Z3A3  ... 

-  (4*exp(-Z3  -  2.*Y.*Z3)*SA2*(S_v))/Z3A3  -  (6*exp(-3*Z3  -  Y.*Z3)*SA2*(S_v))/Z3A3  +  (8*exp(-2*Z3 

-  Y.*Z3)*SA2*(S_v))/Z3A3  -  (2*exp(-Z3  -  Y.*Z3)*SA2*(S_v))/Z3A3  ... 

+  (1  l*S*(S_v))/(exp(3*Z3)*Z3A2)  -  (8*S*(S_v))/(exp(2*Z3)*Z3A2)  +  (2*S*(S_v))/(exp(Z3)*Z3A2)  - 
(S*(S_v))./(exp(3.*Y.*Z3)*Z3A2)  -  (2*S*(S_v))./(exp(Y.*Z3)*Z3A2) ... 

-  (exp(-Z3  -  2.*Y.*Z3)*S*(S_v))/Z3A2  -  (9*exp(-2*Z3  -  Y.*Z3)*S*(S_v))/Z3A2  +  (8*exp(-Z3  - 
Y.*Z3)*S*(S_v))/Z3A2  +  (8*SA2*(S_v))/(exp(3*Z3)*Z3A2);  ... 

(4*SA2*(S_v))/(exp(2*Z3)*Z3A2)  +  (SA2*(S_v))/(exp(Z3)*Z3A2) 

(SA2*(S_v))./(exp(3.*Y.*Z3)*Z3A2)  -  (SA2*(S_v))./(exp(Y.*Z3)*Z3A2)  -  (exp(-Z3 

2.*Y.*Z3)*SA2*(S_v))/Z3A2  ... 

-  (6*exp(-2*Z3  -  Y.*Z3)*SA2*(S_v))/Z3A2  +  (4*exp(-Z3  -  Y.*Z3)*SA2*(S_v))/Z3A2  - 

(6*S.*Y.*(S_v))/(exp(3*Z3)*Z3A2)  +  (8*S.*Y.*(S_v))/(exp(2*Z3)*Z3A2)  ... 

-  (2*S.*Y.*(S_v))/(exp(Z3)*Z3A2)  +  (2*S.*Y.*(S_v))/(exp(Y.*Z3)*Z3A2)  +  (6*exp(-2*Z3  - 

Y.*Z3)*S.*Y.*(S_v))/Z3A2  -  (8*exp(-Z3  -  Y.*Z3)*S.*Y.*(S_v))/Z3A2  ... 
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(3*SA2.*Y.*(S_v))/(exp(3*Z3)*Z3A2)  +  (4*SA2.*Y.*(S_v))/(exp(2*Z3)*Z3A2) 

(SA2.*Y.*(S_v))/(exp(Z3)*Z3A2)  +  (SA2.*Y.*(S_v))/(exp(Y.*Z3)*Z3A2) ... 

+  (3*exp(-2*Z3  -  Y.*Z3)*SA2.*Y.*(S_v))/Z3A2  -  (4*exp(-Z3  -  Y.*Z3)*SA2.*Y.*(S_v))/Z3A2  + 
(S*(S_v))/Z3  +  (2*S*(S_v))/(exp(3*Z3)*Z3)  +  (9*S*(S_v))/(exp(2*Z3)*Z3)... 

-  (4*S*(S_v))/(exp(Z3)*Z3)  +  (S*(S_v))./(exp(2.*Y.*Z3)*Z3)  -  (2*exp(-2*Z3  -  Y.*Z3)*S*(S_v))/Z3  + 
(exp(-Z3  -  Y.*Z3)*S*(S_v))/Z3  +  (2*SA2*(S_v))/(exp(3*Z3)*Z3)  ... 

+  (SA2*(S_v))/(exp(2*Z3)*Z3)  -  (2*exp(-2*Z3  -  Y.*Z3)*SA2*(S_v))/Z3  -  (exp(-Z3  - 

Y.*Z3)*SA2*(S_v))/Z3  -  (2*S.*Y.*(S_v))/Z3  -  (13*S.*Y.*(S_v))/(exp(2*Z3)*Z3) ... 

+  (8*S.*Y.*(S_v))/(exp(Z3)*Z3)  -  (S.*Y.*(S_v))./(exp(2.*Y.*Z3)*Z3) 

(2*SA2.*Y.*(S_v))/(exp(2*Z3)*Z3)  +  (2*exp(-Z3  -  Y.*Z3)*SA2.*Y.*(S_v))/Z3  +  (S.*Y  A2*(S_v))/Z3  ... 

+  (3*S.*Y.A2*(S_v))/(exp(4*Z3)*Z3)  -  (4*S.*Y  A2*(S_v))/(exp(3*Z3)*Z3)  + 

(4*S.*Y.A2*(S_v))/(exp(2*Z3)*Z3)  -  (4*S.*Y A2*(S_v))/(exp(Z3)*Z3) ... 

-  (3*exp(-3*Z3  -  Y.*Z3)*S.*Y.A2*(S_v))/Z3  +  (4*exp(-2*Z3  -  Y.*Z3)*S.*Y A2*(S_v))/Z3  -  (exp(-Z3  - 
Y.*Z3)*S.*Y.A2*(S_v))/Z3  +  (3*SA2.*Y  A2*(S_v))/(exp(4*Z3)*Z3) ... 

-  (4*SA2.*Y.A2*(S_v))/(exp(3*Z3)*Z3)  +  (SA2.*Y  A2*(S_v))/(exp(2*Z3)*Z3)  -  (3*exp(-3*Z3  - 
Y.*Z3)*SA2.*Y.A2*(S_v))/Z3  +  (4*exp(-2*Z3  -  Y.*Z3)*SA2.*Y  A2*(S_v))/Z3  ... 

(exp(-Z3  -  Y.*Z3)*SA2.*Y.A2*(S_v))/Z3  -  (3*S*Z3*(S_v))/(4*exp(4*Z3)) 

(7*S*Z3*(S_v))/(4*exp(2*Z3))  -  (3*SA2*Z3*(S_v))/(4*exp(4*Z3))  -  (3*SA2*Z3*(S_v))/(4*exp(2*Z3)) ... 

+  (2*S.*Y.*Z3*(S_v))/exp(2*Z3)  +  (SA2.*Y.*Z3*(S_v))/exp(2*Z3)  +  (S.*Y  A2*Z3*(S_v))/exp(3*Z3)  + 
(3*S.*Y  A2*Z3*(S_v))/(2*exp(2*Z3))  +  (SA2.*Y ,A2*Z3*(S_v))/exp(3*Z3)  ... 

+  (SA2.*Y.A2*Z3*(S_v))/(2*exp(2*Z3))  -  (2*S.*Y  ,A3*Z3*(S_v))/exp(2*Z3) 

(SA2.*Y.A3*Z3*(S_v))/exp(2*Z3)  +  (3*S.*Y.A4*Z3*(S_v))/(4*exp(4*Z3)) 

(S.*Y.A4*Z3*(S_v))/exp(3*Z3) ... 

+  (S.*Y.A4*Z3*(S_v))/(4*exp(2*Z3))  +  (3*SA2.*Y.A4*Z3*(S_v))/(4*exp(4*Z3)) 

(SA2.*Y.A4*Z3*(S_v))/exp(3*Z3)  +  (SA2.*Y.A4*Z3*(S_v))/(4*exp(2*Z3))  + 

(S*Z3A2*(S_v))/(2*exp(3*Z3))  ... 

+  (SA2*Z3A2*(S_v))/(2*exp(3*Z3))  -  (S.*Y  A2*Z3A2*(S_v))/exp(3*Z3) 

(SA2.*Y.A2*Z3A2*(S_v))/exp(3*Z3)  +  (S.*Y.A4*Z3A2*(S_v))/(2*exp(3*Z3)) ... 

+  (SA2.*Y.A4*Z3A2*(S_v))/(2*exp(3*Z3))  +  (9*SA2*(S_v)A2)/(16*exp(6*Z3)) 

(23*SA2*(S_v)A2)/(8*exp(4*Z3))  +  (2*SA2*(S_v)A2)/exp(3*Z3)  +  (SA2*(S_v)A2)/(16*exp(2*Z3)) ... 

-  (exp(-2*Z3  -  2.*Y.*Z3)*SA2*(S_v)A2)/2  -  exp(-3*Z3  -  Y.*Z3)*SA2*(S_v)A2  - 

(2*SA2.*Y.*(S_v)A2)/exp(3*Z3)  -  (SA2.*Y.*(S_v)A2)/exp(2*Z3)  +  (9*SA2.*Y ,A2*(S_v)A2)/(8*exp(6*Z3)) 

(3*SA2.*Y.A2*(S_v)A2)/(2*exp(5*Z3))  +  (11*SA2.*Y  A2*(S_v)A2)/(2*exp(4*Z3)) 

(7*SA2.*Y.A2*(S_v)A2)/(2*exp(3*Z3))  +  (15*SA2.*Y ,A2*(S_v)A2)/(8*exp(2*Z3))  ... 

+  (exp(-2*Z3  -  2.*Y.*Z3)*SA2.*Y.A2*(S_v)A2)/2  +  exp(-3*Z3  -  Y.*Z3)*SA2.*Y ,A2*(S_v)A2  - 
(3*SA2.*Y.A3*(S_v)A2)/exp(4*Z3)  +  (4*SA2.*Y  A3*(S_v)A2)/exp(3*Z3)  ... 

(SA2.*Y.A3*(S_v)A2)/exp(2*Z3)  +  (9*SA2.*Y.A4*(S_v)A2)/(16*exp(6*Z3)) 

(3*SA2.*Y.A4*(S_v)A2)/(2*exp(5*Z3))  +  (ll*SA2.*Y.A4*(S_v)A2)/(8*exp(4*Z3))  ... 

(SA2.*Y.A4*(S_v)A2)/(2*exp(3*Z3))  +  (SA2.*Y.A4*(S_v)A2)/(16*exp(2*Z3))  + 

(9*SA2*(S_v)A2)/(4*exp(6*Z3)*Z3A4)  -  (6*SA2*(S_v)A2)/(exp(5*Z3)*Z3A4)  ... 

+  (1  l*SA2*(S_v)A2)/(2*exp(4*Z3)*Z3A4)  -  (2*SA2*(S_v)A2)/(exp(3*Z3)*Z3A4)  + 

(SA2*(S_v)A2)/(4*exp(2*Z3)*Z3A4)  +  (SA2*(S_v)A2)./(4*exp(2.*Y.*Z3)*Z3A4) ... 

+  (9*exp(-4*Z3  -  2.*Y.*Z3)*SA2*(S_v)A2)/(4*Z3A4)  -  (6*exp(-3*Z3  -  2,*Y.*Z3)*SA2*(S_v)A2)/Z3A4  + 
(1  l*exp(-2*Z3  -  2,*Y.*Z3)*SA2*(S_v)A2)/(2*Z3A4) ... 

-  (2*exp(-Z3  -  2.*Y.*Z3)*SA2*(S_v)A2)/Z3A4  -  (9*exp(-5*Z3  -  Y.*Z3)*SA2*(S_v)A2)/(2*Z3A4)  + 
(12*exp(-4*Z3  -  Y.*Z3)*SA2*(S_v)A2)/Z3A4  -  (ll*exp(-3*Z3  -  Y.*Z3)*SA2*(S_v)A2)/Z3A4  ... 

+  (4*exp(-2*Z3  -  Y.*Z3)*SA2*(S_v)A2)/Z3A4  -  (exp(-Z3  -  Y.*Z3)*SA2*(S_v)A2)/(2*Z3A4)  + 
(12*SA2*(S_v)A2)/(exp(5*Z3)*Z3A3)  -  (22*SA2*(S_v)A2)/(exp(4*Z3)*Z3A3)  ... 

+  (27*SA2*(S_v)A2)/(2*exp(3*Z3)*Z3A3)  -  (4*SA2*(S_v)A2)/(exp(2*Z3)*Z3A3)  + 

(SA2*(S_v)A2)/(2*exp(Z3)*Z3A3)  -  (SA2*(S_v)A2)./(2*exp(3.*Y.*Z3)*Z3A3) ... 

-  (SA2*(S_v)A2)./(2*exp(Y.*Z3)*Z3A3)  -  (3*exp(-2*Z3  -  3.*Y.*Z3)*SA2*(S_v)A2)/(2*Z3A3)  +  (2*exp(- 
Z3  -  3.*Y.*Z3)*SA2*(S_v)A2)/Z3A3  -  (3*exp(-3*Z3  -  2.*Y.*Z3)*SA2*(S_v)A2)/(2*Z3A3)  ... 

+  (2*exp(-2*Z3  -  2,*Y.*Z3)*SA2*(S_v)A2)/Z3A3  -  (exp(-Z3  -  2.*Y.*Z3)*SA2*(S_v)A2)/(2*Z3A3)  - 
(9*exp(-4*Z3  -  Y.*Z3)*SA2*(S_v)A2)/Z3A3  +  (18*exp(-3*Z3  -  Y.*Z3)*SA2*(S_v)A2)/Z3A3  ... 
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-  (25*exp(-2*Z3  -  Y.*Z3)*SA2*(S_v)A2)/(2*Z3A3)  +  (4*exp(-Z3  -  Y.*Z3)*SA2*(S_v)A2)/Z3A3  - 
(9*SA2.*Y.*(S_v)A2)/(2*exp(5*Z3)*Z3A3)  +  (12*SA2.*Y.*(S_v)A2)/(exp(4*Z3)*Z3A3)  ... 

(ll*SA2.*Y.*(S_v)A2)/(exp(3*Z3)*Z3A3)  +  (4*SA2.*Y.*(S_v)A2)/(exp(2*Z3)*Z3A3) 

(SA2.*Y.*(S_v)A2)/(2*exp(Z3)*Z3A3)  +  (SA2.*Y.*(S_v)A2)/(2*exp(Y.*Z3)*Z3A3)  ... 

+  (9*exp(-4*Z3  -  Y.*Z3)*SA2.*Y.*(S_v)A2)/(2*Z3A3)  -  (12*exp(-3*Z3 

Y.*Z3)*SA2.*Y.*(S_v)A2)/Z3A3  +  (1  l*exp(-2*Z3  -  Y.*Z3)*SA2.*Y.*(S_v)A2)/Z3A3  ... 

(4*exp(-Z3  -  Y.*Z3)*SA2.*Y.*(S_v)A2)/Z3A3  +  (SA2*(S_v)A2)/(4*Z3A2)  + 

(9*SA2*(S_v)A2)/(4*exp(6*Z3)*Z3A2)  -  (3*SA2*(S_v)A2)/(exp(5*Z3)*Z3A2)  + 

(19*SA2*(S_v)A2)/(exp(4*Z3)*Z3A2)  ... 

(19*SA2*(S_v)A2)/(exp(3*Z3)*Z3A2)  +  (35*SA2*(S_v)A2)/(4*exp(2*Z3)*Z3A2) 

(2*SA2*(S_v)A2)/(exp(Z3)*Z3A2)  +  (SA2*(S_v)A2)./(4*exp(4.*Y.*Z3)*Z3A2) ... 

+  (SA2*(S_v)A2)./(2*exp(2.*Y.*Z3)*Z3A2)  +  (exp(-Z3  -  3.*Y.*Z3)*SA2*(S_v)A2)/Z3A2  +  (5*exp(-2*Z3 
-  2.*Y.*Z3)*SA2*(S_v)A2)/Z3A2  -  (2*exp(-Z3  -  2.*Y.*Z3)*SA2*(S_v)A2)/Z3A2  ... 

-  (9*exp(-5*Z3  -  Y.*Z3)*SA2*(S_v)A2)/(4*Z3A2)  +  (3*exp(-4*Z3  -  Y.*Z3)*SA2*(S_v)A2)/Z3A2  + 
(5*exp(-3*Z3  -  Y.*Z3)*SA2*(S_v)A2)/Z3A2  -  (exp(-2*Z3  -  Y.*Z3)*SA2*(S_v)A2)/Z3A2  ... 

+  (exp(-Z3  -  Y.*Z3)*SA2*(S_v)A2)/(4*Z3A2)  -  (SA2.*Y.*(S_v)A2)/(2*Z3A2) 

(15*SA2.*Y.*(S_v)A2)/(exp(4*Z3)*Z3A2)  +  (26*SA2.*Y.*(S_v)A2)/(exp(3*Z3)*Z3A2)  ... 

(29*SA2.*Y.*(S_v)A2)/(2*exp(2*Z3)*Z3A2)  +  (4*SA2.*Y.*(S_v)A2)/(exp(Z3)*Z3A2) 

(SA2.*Y.*(S_v)A2)./(2*exp(2.*Y.*Z3)*Z3A2)  -  (3*exp(-2*Z3  -  2.*Y.*Z3)*SA2.*Y.*(S_v)A2)/(2*Z3A2) ... 

+  (2*exp(-Z3  -  2.*Y.*Z3)*SA2.*Y.*(S_v)A2)/Z3A2  +  (SA2.*Y  A2*(S_v)A2)/(4*Z3A2)  + 

(9*SA2.*Y.A2*(S_v)A2)/(4*exp(6*Z3)*Z3A2)  -  (6*SA2.*Y.A2*(S_v)A2)/(exp(5*Z3)*Z3A2) ... 

+  (31*SA2.*Y.A2*(S_v)A2)/(4*exp(4*Z3)*Z3A2)  -  (8*SA2.*Y  A2*(S_v)A2)/(exp(3*Z3)*Z3A2)  + 

(23*SA2.*Y.A2*(S_v)A2)/(4*exp(2*Z3)*Z3A2)  -  (2*SA2.*Y  A2*(S_v)A2)/(exp(Z3)*Z3A2)  ... 

(9*exp(-5*Z3  -  Y.*Z3)*SA2.*Y.A2*(S_v)A2)/(4*Z3A2)  +  (6*exp(-4*Z3 

Y.*Z3)*SA2.*Y.A2*(S_v)A2)/Z3A2  -  (1  l*exp(-3*Z3  -  Y.*Z3)*SA2.*Y  A2*(S_v)A2)/(2*Z3A2)  ... 

+  (2*exp(-2*Z3  -  Y.*Z3)*SA2.*Y.A2*(S_v)A2)/Z3A2  -  (exp(-Z3  -  Y.*Z3)*SA2.*Y ,A2*(S_v)A2)/(4*Z3A2) 
+  (9*SA2*(S_v)A2)/(2*exp(5*Z3)*Z3)  -  (SA2*(S_v)A2)/(exp(4*Z3)*Z3)  ... 

+  (25*SA2*(S_v)A2)/(4*exp(3*Z3)*Z3)  -  (3*SA2*(S_v)A2)/(exp(2*Z3)*Z3)  + 

(3*SA2*(S_v)A2)/(4*exp(Z3)*Z3)  +  (3*exp(-3*Z3  -  2.*Y.*Z3)*SA2*(S_v)A2)/(4*Z3)  ... 

+  (3*exp(-Z3  -  2.*Y.*Z3)*SA2*(S_v)A2)/(4*Z3)  +  (3*exp(-4*Z3  -  Y.*Z3)*SA2*(S_v)A2)/Z3  -  (2*exp(- 
3*Z3  -  Y.*Z3)*SA2*(S_v)A2)/Z3  +  (2*exp(-2*Z3  -  Y.*Z3)*SA2*(S_v)A2)/Z3  ... 

(9*SA2.*Y.*(S_v)A2)/(4*exp(5*Z3)*Z3)  +  (3*SA2.*Y.*(S_v)A2)/(exp(4*Z3)*Z3) 

(1  l*SA2.*Y.*(S_v)A2)/(exp(3*Z3)*Z3)  +  (7*SA2.*Y.*(S_v)A2)/(exp(2*Z3)*Z3) ... 

-  (7*SA2.*Y.*(S_v)A2)/(4*exp(Z3)*Z3)  -  (exp(-Z3  -  2.*Y.*Z3)*SA2.*Y.*(S_v)A2)/Z3  -  (2*exp(-2*Z3  - 
Y.*Z3)*SA2.*Y.*(S_v)A2)/Z3  +  (15*SA2.*Y  A2*(S_v)A2)/(2*exp(5*Z3)*Z3)  ... 

-  (13*SA2.*Y.A2*(S_v)A2)/(exp(4*Z3)*Z3)  +  (41*SA2.*Y  ,A2*(S_v)A2)/(4*exp(3*Z3)*Z3)  - 

(6*SA2.*Y.A2*(S_v)A2)/(exp(2*Z3)*Z3)  +  (5*SA2.*Y ,A2*(S_v)A2)/(4*exp(Z3)*Z3)  ... 

+  (3*exp(-3*Z3  -  2.*Y.*Z3)*SA2.*Y.A2*(S_v)A2)/(4*Z3)  -  (exp(-2*Z3 

2.*Y.*Z3)*SA2.*Y.A2*(S_v)A2)/Z3  +  (exp(-Z3  -  2.*Y.*Z3)*SA2.*Y ,A2*(S_v)A2)/(4*Z3)  ... 

(9*SA2.*Y.A3*(S_v)A2)/(4*exp(5*Z3)*Z3)  +  (6*SA2.*Y  ,A3*(S_v)A2)/(exp(4*Z3)*Z3) 

(1  l*SA2.*Y.A3*(S_v)A2)/(2*exp(3*Z3)*Z3)  +  (2*SA2.*Y ,A3*(S_v)A2)/(exp(2*Z3)*Z3) ... 

(SA2.*Y.A3*(S_v)A2)/(4*exp(Z3)*Z3)  -  (3*SA2*Z3*(S_v)A2)/(4*exp(5*Z3)) 

(3*SA2*Z3*(S_v)A2)/(4*exp(3*Z3))  +  (SA2.*Y.*Z3*(S_v)A2)/exp(3*Z3)  + 

(SA2.*Y.A2*Z3*(S_v)A2)/exp(4*Z3) ... 

+  (SA2.*Y.A2*Z3*(S_v)A2)/(2*exp(3*Z3))  -  (SA2.*Y  A3*Z3*(S_v)A2)/exp(3*Z3)  + 

(3*SA2.*Y.A4*Z3*(S_v)A2)/(4*exp(5*Z3))  -  (SA2.*Y  A4*Z3*(S_v)A2)/exp(4*Z3) ... 

+  (SA2.*Y.A4*Z3*(S_v)A2)/(4*exp(3*Z3))  +  (SA2*Z3A2*(S_v)A2)/(4*exp(4*Z3)) 

(SA2.*Y.A2*Z3A2*(S_v)A2)/(2*exp(4*Z3))  +  (SA2.*Y.A4*Z3A2*(S_v)A2)/(4*exp(4*Z3)); 


Ns3=NG+Nc+Ny3; 

Phi3=Nf3./[Nc+Ny3]; 

Be3=l./[1+Phi3]; 

GG=NG./Ns3; 

Gh3=[Nc+Ny3]./Ns3; 

Nh3=Nc+Ny3; 
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Z4=12.5; 

Nf4=Br*[(Z4A2).*exp(-2.*Y.*Z4)+(Z4A2)*exp(-2*Z4)-2*Z4A2.*exp(-Z4-Y.*Z4)]; 

Ny4=l  -  exp(-2*Z4)  +  exp(-Z4  -  Y.*Z4)  -  (2*S)/exp(2*Z4)  +  2*exp(-Z4  -  Y.*Z4)*S  -  SA2/exp(2*Z4)  + 
exp(-Z4  -  Y.*Z4)*SA2  -  2.*Y  +  Y.A2  +  Y.A2/exp(2*Z4)  -  exp(-Z4  -  Y.*Z4).*Y.A2  ... 

+  (2*S.*Y.A2)/exp(2*Z4)  -  2*exp(-Z4  -  Y.*Z4)*S.*Y.A2  +  (SA2.*Y.A2)/exp(2*Z4)  -  exp(-Z4  - 
Y.*Z4)*SA2.*Y.A2  +  l/(exp(2*Z4)*Z4A2)  +  l./(exp(2.*Y.*Z4)*Z4A2)  ... 

-  (2*exp(-Z4  -  Y.*Z4))/Z4A2  +  (2*S)/(exp(2*Z4)*Z4A2)  +  (2*S)./(exp(2.*Y.*Z4)*Z4A2)  -  (4*exp(-Z4  - 
Y.*Z4)*S)/Z4A2  +  SA2/(exp(2*Z4)*Z4A2)  +  SA2./(exp(2.*Y.*Z4)*Z4A2)  ... 

-  (2*exp(-Z4  -  Y.*Z4)*SA2)/Z4A2  +  2/(exp(Z4)*Z4)  -  2./(exp(Y.*Z4)*Z4)  +  (2*S)/(exp(Z4)*Z4)  - 
(2*S)./(exp(Y.*Z4)*Z4)  -  (2.*Y)/(exp(Z4)*Z4)  +  (2.*Y)/(exp(Y.*Z4)*Z4) ... 

-  (2*S.*Y)/(exp(Z4)*Z4)  +  (2*S.*Y)/(exp(Y.*Z4)*Z4)  -  Z4/exp(Z4)  -  (S*Z4)/exp(Z4)  + 

(Y.*Z4)/exp(Z4)  +  (S.*Y.*Z4)/exp(Z4)  +(Y.A2*Z4)/exp(Z4)  +  (S.*Y.A2*Z4)/exp(Z4)  -  (Y.A3*Z4)/exp(Z4) 

-  (S.*Y.A3*Z4)/exp(Z4)  +  Z4A2/(4*exp(2*Z4))  +  (S*Z4A2)/(2*exp(2*Z4))  +  (SA2*Z4A2)/(4*exp(2*Z4)) 

-  (Y.A2*Z4A2)/(2*exp(2*Z4))  -  (S.*Y.A2*Z4A2)/exp(2*Z4) ... 

-  (SA2.*Y.A2*Z4A2)/(2*exp(2*Z4))  +  (Y  A4*Z4A2)/(4*exp(2*Z4))  +  (S.*Y  A4*Z4A2)/(2*exp(2*Z4))  + 
(SA2.*Y.A4*Z4A2)/(4*exp(2*Z4))  -  (7*S*(S_v))/(2*exp(3*Z4)) ... 

+  (2*S*(S_v))/exp(2*Z4)  +  (S*(S_v))/exp(Z4)  -  (exp(-Z4  -  2.*Y.*Z4)*S*(S_v))/2  - 

(5*SA2*(S_v))/exp(3*Z4)  +  (2*SA2*(S_v))/exp(2*Z4)  -  (SA2*(S_v))/(2*exp(Z4)) ... 

-  (exp(-Z4  -  2.*Y.*Z4)*SA2*(S_v))/2  -  (2*S.*Y.*(S_v))/exp(2*Z4)  -  (3*S.*Y.*(S_v))/exp(Z4)  + 
(3*SA2.*Y.*(S_v))/(2*exp(3*Z4))  -  (2*SA2.*Y.*(S_v))/exp(2*Z4)  ... 

+  (SA2.*Y.*(S_v))/(2*exp(Z4))  +  (13*S.*Y.A2*(S_v))/(2*exp(3*Z4))  -  (4*S.*Y.A2*(S_v))/exp(2*Z4)  + 
(3*S.*Y.A2*(S_v))/exp(Z4)  +  (exp(-Z4  -  2.*Y.*Z4)*S.*Y.A2*(S_v))/2  ... 

+  (5*SA2.*Y.A2*(S_v))/exp(3*Z4)  -  (2*SA2.*Y.A2*(S_v))/exp(2*Z4)  +  (SA2.*Y.A2*(S_v))/(2*exp(Z4)) 
+  (exp(-Z4  -  2.*Y.*Z4)*SA2.*Y.A2*(S_v))/2  -  (3*S.*Y.A3*(S_v))/exp(3*Z4) ... 

+  (4*S.*Y.A3*(S_v))/exp(2*Z4)  -  (S.*Y  A3*(S_v))/exp(Z4)  -  (3*SA2.*Y.A3*(S_v))/(2*exp(3*Z4))  + 
(2*SA2.*Y.A3*(S_v))/exp(2*Z4)  -  (SA2.*Y.A3*(S_v))/(2*exp(Z4))  ... 

+  (3*S*(S_v))/(exp(4*Z4)*Z4A3)  -  (4*S*(S_v))/(exp(3*Z4)*Z4A3)  +  (S*(S_v))/(exp(2*Z4)*Z4A3)  + 
(S*(S_v))./(exp(2.*Y.*Z4)*Z4A3)  +  (3*exp(-2*Z4  -  2.*Y.*Z4)*S*(S_v))/Z4A3  ... 

-  (4*exp(-Z4  -  2.*Y.*Z4)*S*(S_v))/Z4A3  -  (6*exp(-3*Z4  -  Y.*Z4)*S*(S_v))/Z4A3  +  (8*exp(-2*Z4  - 
Y.*Z4)*S*(S_v))/Z4A3  -  (2*exp(-Z4  -  Y.*Z4)*S*(S_v))/Z4A3  ... 

+  (3*SA2*(S_v))/(exp(4*Z4)*Z4A3)  -  (4*SA2*(S_v))/(exp(3*Z4)*Z4A3)  + 

(SA2*(S_v))/(exp(2*Z4)*Z4A3)  +  (SA2*(S_v))./(exp(2.*Y.*Z4)*Z4A3)  +  (3*exp(-2*Z4 

2.*Y.*Z4)*SA2*(S_v))/Z4A3  ... 

-  (4*exp(-Z4  -  2.*Y.*Z4)*SA2*(S_v))/Z4A3  -  (6*exp(-3*Z4  -  Y.*Z4)*SA2*(S_v))/Z4A3  +  (8*exp(-2*Z4 

-  Y.*Z4)*SA2*(S_v))/Z4A3  -  (2*exp(-Z4  -  Y.*Z4)*SA2*(S_v))/Z4A3  ... 

+  (ll*S*(S_v))/(exp(3*Z4)*Z4A2)  -  (8*S*(S_v))/(exp(2*Z4)*Z4A2)  +  (2*S*(S_v))/(exp(Z4)*Z4A2)  - 
(S*(S_v))./(exp(3.*Y.*Z4)*Z4A2)  -  (2*S*(S_v))./(exp(Y.*Z4)*Z4A2) ... 

-  (exp(-Z4  -  2.*Y.*Z4)*S*(S_v))/Z4A2  -  (9*exp(-2*Z4  -  Y.*Z4)*S*(S_v))/Z4A2  +  (8*exp(-Z4  - 
Y.*Z4)*S*(S_v))/Z4A2  +  (8*SA2*(S_v))/(exp(3*Z4)*Z4A2);  ... 

(4*SA2*(S_v))/(exp(2*Z4)*Z4A2)  +  (SA2*(S_v))/(exp(Z4)*Z4A2) 

(SA2*(S_v))./(exp(3.*Y.*Z4)*Z4A2)  -  (SA2*(S_v))./(exp(Y.*Z4)*Z4A2)  -  (exp(-Z4 

2.*Y.*Z4)*SA2*(S_v))/Z4A2  ... 

-  (6*exp(-2*Z4  -  Y.*Z4)*SA2*(S_v))/Z4A2  +  (4*exp(-Z4  -  Y.*Z4)*SA2*(S_v))/Z4A2  - 

(6*S.*Y.*(S_v))/(exp(3*Z4)*Z4A2)  +  (8*S.*Y.*(S_v))/(exp(2*Z4)*Z4A2)  ... 

-  (2*S.*Y.*(S_v))/(exp(Z4)*Z4A2)  +  (2*S.*Y.*(S_v))/(exp(Y.*Z4)*Z4A2)  +  (6*exp(-2*Z4  - 

Y.*Z4)*S.*Y.*(S_v))/Z4A2  -  (8*exp(-Z4  -  Y.*Z4)*S.*Y.*(S_v))/Z4A2  ... 

(3*SA2.*Y.*(S_v))/(exp(3*Z4)*Z4A2)  +  (4*SA2.*Y.*(S_v))/(exp(2*Z4)*Z4A2) 

(SA2.*Y.*(S_v))/(exp(Z4)*Z4A2)  +  (SA2.*Y.*(S_v))/(exp(Y.*Z4)*Z4A2) ... 

+  (3*exp(-2*Z4  -  Y.*Z4)*SA2.*Y.*(S_v))/Z4A2  -  (4*exp(-Z4  -  Y.*Z4)*SA2.*Y.*(S_v))/Z4A2  + 
(S*(S_v))/Z4  +  (2*S*(S_v))/(exp(3*Z4)*Z4)  +  (9*S*(S_v))/(exp(2*Z4)*Z4)... 

-  (4*S*(S_v))/(exp(Z4)*Z4)  +  (S*(S_v))./(exp(2.*Y.*Z4)*Z4)  -  (2*exp(-2*Z4  -  Y.*Z4)*S*(S_v))/Z4  + 
(exp(-Z4  -  Y.*Z4)*S*(S_v))/Z4  +  (2*SA2*(S_v))/(exp(3*Z4)*Z4)  ... 

+  (SA2*(S_v))/(exp(2*Z4)*Z4)  -  (2*exp(-2*Z4  -  Y.*Z4)*SA2*(S_v))/Z4  -  (exp(-Z4  - 

Y.*Z4)*SA2*(S_v))/Z4  -  (2*S.*Y.*(S_v))/Z4  -  (13*S.*Y.*(S_v))/(exp(2*Z4)*Z4) ... 
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+  (8*S.*Y.*(S_v))/(exp(Z4)*Z4)  -  (S.*Y.*(S_v))./(exp(2.*Y.*Z4)*Z4) 

(2*SA2.*Y.*(S_v))/(exp(2*Z4)*Z4)  +  (2*exp(-Z4  -  Y.*Z4)*SA2.*Y.*(S_v))/Z4  +  (S.*Y  A2*(S_v))/Z4  ... 

+  (3*S.*Y.A2*(S_v))/(exp(4*Z4)*Z4)  -  (4*S.*Y  A2*(S_v))/(exp(3*Z4)*Z4)  + 

(4*S.*Y.A2*(S_v))/(exp(2*Z4)*Z4)  -  (4*S.*Y  A2*(S_v))/(exp(Z4)*Z4) ... 

-  (3*exp(-3*Z4  -  Y.*Z4)*S.*Y.A2*(S_v))/Z4  +  (4*exp(-2*Z4  -  Y.*Z4)*S.*Y  A2*(S_v))/Z4  -  (exp(-Z4  - 
Y.*Z4)*S.*Y.A2*(S_v))/Z4  +  (3*SA2.*Y  A2*(S_v))/(exp(4*Z4)*Z4) ... 

-  (4*SA2.*Y.A2*(S_v))/(exp(3*Z4)*Z4)  +  (SA2.*Y  A2*(S_v))/(exp(2*Z4)*Z4)  -  (3*exp(-3*Z4  - 
Y.*Z4)*SA2.*Y.A2*(S_v))/Z4  +  (4*exp(-2*Z4  -  Y.*Z4)*SA2.*Y  A2*(S_v))/Z4  ... 

(exp(-Z4  -  Y.*Z4)*SA2.*Y.A2*(S_v))/Z4  -  (3*S*Z4*(S_v))/(4*exp(4*Z4)) 

(7*S*Z4*(S_v))/(4*exp(2*Z4))  -  (3*SA2*Z4*(S_v))/(4*exp(4*Z4))  -  (3*SA2*Z4*(S_v))/(4*exp(2*Z4)) ... 

+  (2*S.*Y.*Z4*(S_v))/exp(2*Z4)  +  (SA2.*Y.*Z4*(S_v))/exp(2*Z4)  +  (S.*Y.A2*Z4*(S_v))/exp(3*Z4)  + 
(3*S.*Y  A2*Z4*(S_v))/(2*exp(2*Z4))  +  (SA2.*Y  A2*Z4*(S_v))/exp(3*Z4)  ... 

+  (SA2.*Y.A2*Z4*(S_v))/(2*exp(2*Z4))  -  (2*S.*Y  A3*Z4*(S_v))/exp(2*Z4) 

(SA2.*Y.A3*Z4*(S_v))/exp(2*Z4)  +  (3*S.*Y.A4*Z4*(S_v))/(4*exp(4*Z4)) 

(S.*Y.A4*Z4*(S_v))/exp(3*Z4) ... 

+  (S.*Y.A4*Z4*(S_v))/(4*exp(2*Z4))  +  (3*SA2.*Y.A4*Z4*(S_v))/(4*exp(4*Z4)) 

(SA2.*Y.A4*Z4*(S_v))/exp(3*Z4)  +  (SA2.*Y  A4*Z4*(S_v))/(4*exp(2*Z4))  + 

(S*Z4A2*(S_v))/(2*exp(3*Z4))  ... 

+  (SA2*Z4A2*(S_v))/(2*exp(3*Z4))  -  (S.*Y.A2*Z4A2*(S_v))/exp(3*Z4) 

(SA2.*Y.A2*Z4A2*(S_v))/exp(3*Z4)  +  (S.*Y.A4*Z4A2*(S_v))/(2*exp(3*Z4)) ... 

+  (SA2.*Y.A4*Z4A2*(S_v))/(2*exp(3*Z4))  +  (9*SA2*(S_v)A2)/(16*exp(6*Z4)) 

(23*SA2*(S_v)A2)/(8*exp(4*Z4))  +  (2*SA2*(S_v)A2)/exp(3*Z4)  +  (SA2*(S_v)A2)/(16*exp(2*Z4)) ... 

-  (exp(-2*Z4  -  2.*Y.*Z4)*SA2*(S_v)A2)/2  -  exp(-3*Z4  -  Y.*Z4)*SA2*(S_v)A2  - 

(2*SA2.*Y.*(S_v)A2)/exp(3*Z4)  -  (SA2.*Y.*(S_v)A2)/exp(2*Z4)  +  (9*SA2.*Y ,A2*(S_v)A2)/(8*exp(6*Z4)) 

(3*SA2.*Y.A2*(S_v)A2)/(2*exp(5*Z4))  +  (11*SA2.*Y  ,A2*(S_v)A2)/(2*exp(4*Z4)) 

(7*SA2.*Y  A2*(S_v)A2)/(2*exp(3*Z4))  +  (15*SA2.*Y ,A2*(S_v)A2)/(8*exp(2*Z4))  ... 

+  (exp(-2*Z4  -  2.*Y.*Z4)*SA2.*Y.A2*(S_v)A2)/2  +  exp(-3*Z4  -  Y.*Z4)*SA2.*Y ,A2*(S_v)A2  - 
(3*SA2.*Y  A3*(S_v)A2)/exp(4*Z4)  +  (4*SA2.*Y  A3*(S_v)A2)/exp(3*Z4)  ... 

(SA2.*Y.A3*(S_v)A2)/exp(2*Z4)  +  (9*SA2.*Y.A4*(S_v)A2)/(16*exp(6*Z4)) 

(3*SA2.*Y.A4*(S_v)A2)/(2*exp(5*Z4))  +  (ll*SA2.*Y.A4*(S_v)A2)/(8*exp(4*Z4))  ... 

(SA2.*Y.A4*(S_v)A2)/(2*exp(3*Z4))  +  (SA2.*Y.A4*(S_v)A2)/(16*exp(2*Z4))  + 

(9*SA2*(S_v)A2)/(4*exp(6*Z4)*Z4A4)  -  (6*SA2*(S_v)A2)/(exp(5*Z4)*Z4A4)  ... 

+  (1  l*SA2*(S_v)A2)/(2*exp(4*Z4)*Z4A4)  -  (2*SA2*(S_v)A2)/(exp(3*Z4)*Z4A4)  + 

(SA2*(S_v)A2)/(4*exp(2*Z4)*Z4A4)  +  (SA2*(S_v)A2)./(4*exp(2.*Y.*Z4)*Z4A4) ... 

+  (9*exp(-4*Z4  -  2.*Y.*Z4)*SA2*(S_v)A2)/(4*Z4A4)  -  (6*exp(-3*Z4  -  2.*Y.*Z4)*SA2*(S_v)A2)/Z4A4  + 
(1  l*exp(-2*Z4  -  2.*Y.*Z4)*SA2*(S_v)A2)/(2*Z4A4) ... 

-  (2*exp(-Z4  -  2.*Y.*Z4)*SA2*(S_v)A2)/Z4A4  -  (9*exp(-5*Z4  -  Y.*Z4)*SA2*(S_v)A2)/(2*Z4A4)  + 
(12*exp(-4*Z4  -  Y.*Z4)*SA2*(S_v)A2)/Z4A4  -  (ll*exp(-3*Z4  -  Y.*Z4)*SA2*(S_v)A2)/Z4A4  ... 

+  (4*exp(-2*Z4  -  Y.*Z4)*SA2*(S_v)A2)/Z4A4  -  (exp(-Z4  -  Y.*Z4)*SA2*(S_v)A2)/(2*Z4A4)  + 
(12*SA2*(S_v)A2)/(exp(5*Z4)*Z4A3)  -  (22*SA2*(S_v)A2)/(exp(4*Z4)*Z4A3)  ... 

+  (27*SA2*(S_v)A2)/(2*exp(3*Z4)*Z4A3)  -  (4*SA2*(S_v)A2)/(exp(2*Z4)*Z4A3)  + 

(SA2*(S_v)A2)/(2*exp(Z4)*Z4A3)  -  (SA2*(S_v)A2)./(2*exp(3.*Y.*Z4)*Z4A3) ... 

-  (SA2*(S_v)A2)./(2*exp(Y.*Z4)*Z4A3)  -  (3*exp(-2*Z4  -  3.*Y.*Z4)*SA2*(S_v)A2)/(2*Z4A3)  +  (2*exp(- 
Z4  -  3.*Y.*Z4)*SA2*(S_v)A2)/Z4A3  -  (3*exp(-3*Z4  -  2.*Y.*Z4)*SA2*(S_v)A2)/(2*Z4A3)  ... 

+  (2*exp(-2*Z4  -  2.*Y.*Z4)*SA2*(S_v)A2)/Z4A3  -  (exp(-Z4  -  2.*Y.*Z4)*SA2*(S_v)A2)/(2*Z4A3)  - 
(9*exp(-4*Z4  -  Y.*Z4)*SA2*(S_v)A2)/Z4A3  +  (18*exp(-3*Z4  -  Y.*Z4)*SA2*(S_v)A2)/Z4A3  ... 

-  (25*exp(-2*Z4  -  Y.*Z4)*SA2*(S_v)A2)/(2*Z4A3)  +  (4*exp(-Z4  -  Y.*Z4)*SA2*(S_v)A2)/Z4A3  - 
(9*SA2.*Y.*(S_v)A2)/(2*exp(5*Z4)*Z4A3)  +  (12*SA2.*Y.*(S_v)A2)/(exp(4*Z4)*Z4A3)  ... 

(1  l*SA2.*Y.*(S_v)A2)/(exp(3*Z4)*Z4A3)  +  (4*SA2.*Y.*(S_v)A2)/(exp(2*Z4)*Z4A3) 

(SA2.*Y.*(S_v)A2)/(2*exp(Z4)*Z4A3)  +  (SA2.*Y.*(S_v)A2)/(2*exp(Y.*Z4)*Z4A3)  ... 

+  (9*exp(-4*Z4  -  Y.*Z4)*SA2.*Y.*(S_v)A2)/(2*Z4A3)  -  (12*exp(-3*Z4 

Y.*Z4)*SA2.*Y.*(S_v)A2)/Z4A3  +  (1  l*exp(-2*Z4  -  Y.*Z4)*SA2.*Y.*(S_v)A2)/Z4A3  ... 

(4*exp(-Z4  -  Y.*Z4)*SA2.*Y.*(S_v)A2)/Z4A3  +  (SA2*(S_v)A2)/(4*Z4A2)  + 

(9*SA2*(S_v)A2)/(4*exp(6*Z4)*Z4A2)  -  (3*SA2*(S_v)A2)/(exp(5*Z4)*Z4A2)  + 

(19*SA2*(S_v)A2)/(exp(4*Z4)*Z4A2)  ... 
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(19*SA2*(S_v)A2)/(exp(3*Z4)*Z4A2)  +  (35*SA2*(S_v)A2)/(4*exp(2*Z4)*Z4A2) 

(2*SA2*(S_v)A2)/(exp(Z4)*Z4A2)  +  (SA2*(S_v)A2)./(4*exp(4.*Y.*Z4)*Z4A2) ... 

+  (SA2*(S_v)A2)./(2*exp(2.*Y.*Z4)*Z4A2)  +  (exp(-Z4  -  3.*Y.*Z4)*SA2*(S_v)A2)/Z4A2  +  (5*exp(-2*Z4 
-  2.*Y.*Z4)*SA2*(S_v)A2)/Z4A2  -  (2*exp(-Z4  -  2.*Y.*Z4)*SA2*(S_v)A2)/Z4A2  ... 

-  (9*exp(-5*Z4  -  Y.*Z4)*SA2*(S_v)A2)/(4*Z4A2)  +  (3*exp(-4*Z4  -  Y.*Z4)*SA2*(S_v)A2)/Z4A2  + 
(5*exp(-3*Z4  -  Y.*Z4)*SA2*(S_v)A2)/Z4A2  -  (exp(-2*Z4  -  Y.*Z4)*SA2*(S_v)A2)/Z4A2  ... 

+  (exp(-Z4  -  Y.*Z4)*SA2*(S_v)A2)/(4*Z4A2)  -  (SA2.*Y.*(S_v)A2)/(2*Z4A2) 

(15*SA2.*Y.*(S_v)A2)/(exp(4*Z4)*Z4A2)  +  (26*SA2.*Y.*(S_v)A2)/(exp(3*Z4)*Z4A2)  ... 

(29*SA2.*Y.*(S_v)A2)/(2*exp(2*Z4)*Z4A2)  +  (4*SA2.*Y.*(S_v)A2)/(exp(Z4)*Z4A2) 

(SA2.*Y.*(S_v)A2)./(2*exp(2.*Y.*Z4)*Z4A2)  -  (3*exp(-2*Z4  -  2.*Y.*Z4)*SA2.*Y.*(S_v)A2)/(2*Z4A2) ... 

+  (2*exp(-Z4  -  2.*Y.*Z4)*SA2.*Y.*(S_v)A2)/Z4A2  +  (SA2.*Y.A2*(S_v)A2)/(4*Z4A2)  + 

(9*SA2.*Y.A2*(S_v)A2)/(4*exp(6*Z4)*Z4A2)  -  (6*SA2.*Y.A2*(S_v)A2)/(exp(5*Z4)*Z4A2) ... 

+  (31*SA2.*Y.A2*(S_v)A2)/(4*exp(4*Z4)*Z4A2)  -  (8*SA2.*Y  A2*(S_v)A2)/(exp(3*Z4)*Z4A2)  + 

(23*SA2.*Y.A2*(S_v)A2)/(4*exp(2*Z4)*Z4A2)  -  (2*SA2.*Y  A2*(S_v)A2)/(exp(Z4)*Z4A2)  ... 

(9*exp(-5*Z4  -  Y.*Z4)*SA2.*Y.A2*(S_v)A2)/(4*Z4A2)  +  (6*exp(-4*Z4 

Y.*Z4)*SA2.*Y.A2*(S_v)A2)/Z4A2  -  (1  l*exp(-3*Z4  -  Y.*Z4)*SA2.*Y  A2*(S_v)A2)/(2*Z4A2)  ... 

+  (2*exp(-2*Z4  -  Y.*Z4)*SA2.*Y.A2*(S_v)A2)/Z4A2  -  (exp(-Z4  -  Y.*Z4)*SA2.*Y  A2*(S_v)A2)/(4*Z4A2) 
+  (9*SA2*(S_v)A2)/(2*exp(5*Z4)*Z4)  -  (SA2*(S_v)A2)/(exp(4*Z4)*Z4)  ... 

+  (25*SA2*(S_v)A2)/(4*exp(3*Z4)*Z4)  -  (3*SA2*(S_v)A2)/(exp(2*Z4)*Z4)  + 

(3*SA2*(S_v)A2)/(4*exp(Z4)*Z4)  +  (3*exp(-3*Z4  -  2.*Y.*Z4)*SA2*(S_v)A2)/(4*Z4)  ... 

+  (3*exp(-Z4  -  2.*Y.*Z4)*SA2*(S_v)A2)/(4*Z4)  +  (3*exp(-4*Z4  -  Y.*Z4)*SA2*(S_v)A2)/Z4  -  (2*exp(- 
3*Z4  -  Y.*Z4)*SA2*(S_v)A2)/Z4  +  (2*exp(-2*Z4  -  Y.*Z4)*SA2*(S_v)A2)/Z4  ... 

(9*SA2.*Y.*(S_v)A2)/(4*exp(5*Z4)*Z4)  +  (3*SA2.*Y.*(S_v)A2)/(exp(4*Z4)*Z4) 

(1  l*SA2.*Y.*(S_v)A2)/(exp(3*Z4)*Z4)  +  (7*SA2.*Y.*(S_v)A2)/(exp(2*Z4)*Z4) ... 

-  (7*SA2.*Y.*(S_v)A2)/(4*exp(Z4)*Z4)  -  (exp(-Z4  -  2.*Y.*Z4)*SA2.*Y.*(S_v)A2)/Z4  -  (2*exp(-2*Z4  - 
Y.*Z4)*SA2.*Y.*(S_v)A2)/Z4  +  (15*SA2.*Y  A2*(S_v)A2)/(2*exp(5*Z4)*Z4)  ... 

-  ( 1 3  *SA2.  *  Y.A2*(S_v)A2)/(exp(4*Z4)*Z4)  +  (41*SA2.*Y  ,A2*(S_v)A2)/(4*exp(3*Z4)*Z4)  - 

(6*SA2.*Y.A2*(S_v)A2)/(exp(2*Z4)*Z4)  +  (5*SA2.*Y ,A2*(S_v)A2)/(4*exp(Z4)*Z4)  ... 

+  (3*exp(-3*Z4  -  2.*Y.*Z4)*SA2.*Y.A2*(S_v)A2)/(4*Z4)  -  (exp(-2*Z4 

2.*Y.*Z4)*SA2.*Y.A2*(S_v)A2)/Z4  +  (exp(-Z4  -  2.*Y.*Z4)*SA2.*Y  A2*(S_v)A2)/(4*Z4)  ... 

(9*SA2.*Y.A3*(S_v)A2)/(4*exp(5*Z4)*Z4)  +  (6*SA2.*Y  A3*(S_v)A2)/(exp(4*Z4)*Z4) 

(1  l*SA2.*Y.A3*(S_v)A2)/(2*exp(3*Z4)*Z4)  +  (2*SA2.*Y ,A3*(S_v)A2)/(exp(2*Z4)*Z4) ... 

(SA2.*Y.A3*(S_v)A2)/(4*exp(Z4)*Z4)  -  (3*SA2*Z4*(S_v)A2)/(4*exp(5*Z4)) 

(3*SA2*Z4*(S_v)A2)/(4*exp(3*Z4))  +  (SA2.*Y.*Z4*(S_v)A2)/exp(3*Z4)  + 

(SA2.*Y.A2*Z4*(S_v)A2)/exp(4*Z4) ... 

+  (SA2.*Y.A2*Z4*(S_v)A2)/(2*exp(3*Z4))  -  (SA2.*Y.A3*Z4*(S_v)A2)/exp(3*Z4)  + 

(3*SA2.*Y.A4*Z4*(S_v)A2)/(4*exp(5*Z4))  -  (SA2.*Y ,A4*Z4*(S_v)A2)/exp(4*Z4) ... 

+  (SA2.*Y.A4*Z4*(S_v)A2)/(4*exp(3*Z4))  +  (SA2*Z4A2*(S_v)A2)/(4*exp(4*Z4)) 

(SA2.*Y.A2*Z4A2*(S_v)A2)/(2*exp(4*Z4))  +  (SA2.*Y.A4*Z4A2*(S_v)A2)/(4*exp(4*Z4)); 


Ns4=Nf4+Nc+Ny4; 

Phi4=Nf4./[Nc+Ny4]; 

Be4=l./[1+Phi4]; 

Gf4=Nf4./Ns4; 

Gh4=[Nc+Ny4]./Ns4; 

Nh4=Nc+Ny4; 


Z5=15; 

Nf5=Br*[(Z5A2).*exp(-2.*Y.*Z5)+(Z5A2)*exp(-2*Z5)-2*Z5A2.*exp(-Z5-Y.*Z5)]; 

Ny5=l  -  exp(-2*Z5)  +  exp(-Z5  -  Y.*Z5)  -  (2*S)/exp(2*Z5)  +  2*exp(-Z5  -  Y.*Z5)*S  -  SA2/exp(2*Z5)  + 
exp(-Z5  -  Y.*Z5)*SA2  -  2,*Y  +  Y ,A2  +  Y  A2/exp(2*Z5)  -  exp(-Z5  -  Y.*Z5).*Y ,A2  ... 

+  (2*S.*Y.A2)/exp(2*Z5)  -  2*exp(-Z5  -  Y.*Z5)*S.*Y ,A2  +  (SA2.*Y  A2)/exp(2*Z5)  -  exp(-Z5  - 
Y.*Z5)*SA2.*Y.A2  +  l/(exp(2*Z5)*Z5A2)  +  l./(exp(2.*Y.*Z5)*Z5A2)  ... 

-  (2*exp(-Z5  -  Y.*Z5))/Z5A2  +  (2*S)/(exp(2*Z5)*Z5A2)  +  (2*S)./(exp(2.*Y.*Z5)*Z5A2)  -  (4*exp(-Z5  - 
Y.*Z5)*S)/Z5A2  +  SA2/(exp(2*Z5)*Z5A2)  +  SA2./(exp(2.*Y.*Z5)*Z5A2)  ... 


90 


-  (2*exp(-Z5  -  Y.*Z5)*SA2)/Z5A2  +  2/(exp(Z5)*Z5)  -  2./(exp(Y.*Z5)*Z5)  +  (2*S)/(exp(Z5)*Z5)  - 
(2*S)./(exp(Y.*Z5)*Z5)  -  (2.*Y)/(exp(Z5)*Z5)  +  (2.*Y)/(exp(Y.*Z5)*Z5) ... 

-  (2*S.*Y)/(exp(Z5)*Z5)  +  (2*S.*Y)/(exp(Y.*Z5)*Z5)  -  Z5/exp(Z5)  -  (S*Z5)/exp(Z5)  + 

(Y.*Z5)/exp(Z5)  +  (S.*Y.*Z5)/exp(Z5)  +(Y  A2*Z5)/exp(Z5)  +  (S.*Y  A2*Z5)/exp(Z5)  -  (Y.A3*Z5)/exp(Z5) 

-  (S.*Y.A3*Z5)/exp(Z5)  +  Z5A2/(4*exp(2*Z5))  +  (S*Z5A2)/(2*exp(2*Z5))  +  (SA2*Z5A2)/(4*exp(2*Z5)) 

-  (Y  A2*Z5A2)/(2*exp(2*Z5))  -  (S.*Y  A2*Z5A2)/exp(2*Z5) ... 

-  (SA2.*Y.A2*Z5A2)/(2*exp(2*Z5))  +  (Y.A4*Z5A2)/(4*exp(2*Z5))  +  (S.*Y.A4*Z5A2)/(2*exp(2*Z5))  + 
(SA2.*Y.A4*Z5A2)/(4*exp(2*Z5))  -  (7*S*(S_v))/(2*exp(3*Z5)) ... 

+  (2*S*(S_v))/exp(2*Z5)  +  (S*(S_v))/exp(Z5)  -  (exp(-Z5  -  2.*Y.*Z5)*S*(S_v))/2  - 

(5*SA2*(S_v))/exp(3*Z5)  +  (2*SA2*(S_v))/exp(2*Z5)  -  (SA2*(S_v))/(2*exp(Z5)) ... 

-  (exp(-Z5  -  2.*Y.*Z5)*SA2*(S_v))/2  -  (2*S.*Y.*(S_v))/exp(2*Z5)  -  (3*S.*Y.*(S_v))/exp(Z5)  + 
(3*SA2.*Y.*(S_v))/(2*exp(3*Z5))  -  (2*SA2.*Y.*(S_v))/exp(2*Z5)  ... 

+  (SA2.*Y.*(S_v))/(2*exp(Z5))  +  (13*S.*Y A2*(S_v))/(2*exp(3*Z5))  -  (4*S.*Y  A2*(S_v))/exp(2*Z5)  + 
(3*S.*Y.A2*(S_v))/exp(Z5)  +  (exp(-Z5  -  2.*Y.*Z5)*S.*Y  A2*(S_v))/2  ... 

+  (5*SA2.*Y.A2*(S_v))/exp(3*Z5)  -  (2*SA2.*Y  A2*(S_v))/exp(2*Z5)  +  (SA2.*Y  A2*(S_v))/(2*exp(Z5)) 
+  (exp(-Z5  -  2.*Y.*Z5)*SA2.*Y.A2*(S_v))/2  -  (3*S.*Y  A3*(S_v))/exp(3*Z5) ... 

+  (4*S.*Y.A3*(S_v))/exp(2*Z5)  -  (S.*Y  A3*(S_v))/exp(Z5)  -  (3*SA2.*Y  A3*(S_v))/(2*exp(3*Z5))  + 
(2*SA2.*Y.A3*(S_v))/exp(2*Z5)  -  (SA2.*Y A3*(S_v))/(2*exp(Z5))  ... 

+  (3*S*(S_v))/(exp(4*Z5)*Z5A3)  -  (4*S*(S_v))/(exp(3*Z5)*Z5A3)  +  (S*(S_v))/(exp(2*Z5)*Z5A3)  + 
(S*(S_v))./(exp(2.*Y.*Z5)*Z5A3)  +  (3*exp(-2*Z5  -  2.*Y.*Z5)*S*(S_v))/Z5A3  ... 

-  (4*exp(-Z5  -  2.*Y.*Z5)*S*(S_v))/Z5A3  -  (6*exp(-3*Z5  -  Y.*Z5)*S*(S_v))/Z5A3  +  (8*exp(-2*Z5  - 
Y.*Z5)*S*(S_v))/Z5A3  -  (2*exp(-Z5  -  Y.*Z5)*S*(S_v))/Z5A3  ... 

+  (3*SA2*(S_v))/(exp(4*Z5)*Z5A3)  -  (4*SA2*(S_v))/(exp(3*Z5)*Z5A3)  + 

(SA2*(S_v))/(exp(2*Z5)*Z5A3)  +  (SA2*(S_v))./(exp(2.*Y.*Z5)*Z5A3)  +  (3*exp(-2*Z5 

2,*Y.*Z5)*SA2*(S_v))/Z5A3  ... 

-  (4*exp(-Z5  -  2.*Y.*Z5)*SA2*(S_v))/Z5A3  -  (6*exp(-3*Z5  -  Y.*Z5)*SA2*(S_v))/Z5A3  +  (8*exp(-2*Z5 

-  Y.*Z5)*SA2*(S_v))/Z5A3  -  (2*exp(-Z5  -  Y.*Z5)*SA2*(S_v))/Z5A3  ... 

+  (1  l*S*(S_v))/(exp(3*Z5)*Z5A2)  -  (8*S*(S_v))/(exp(2*Z5)*Z5A2)  +  (2*S*(S_v))/(exp(Z5)*Z5A2)  - 
(S*(S_v))./(exp(3.*Y.*Z5)*Z5A2)  -  (2*S*(S_v))./(exp(Y.*Z5)*Z5A2) ... 

-  (exp(-Z5  -  2.*Y.*Z5)*S*(S_v))/Z5A2  -  (9*exp(-2*Z5  -  Y.*Z5)*S*(S_v))/Z5A2  +  (8*exp(-Z5  - 
Y.*Z5)*S*(S_v))/Z5A2  +  (8*SA2*(S_v))/(exp(3*Z5)*Z5A2);  ... 

(4*SA2*(S_v))/(exp(2*Z5)*Z5A2)  +  (SA2*(S_v))/(exp(Z5)*Z5A2) 

(SA2*(S_v))./(exp(3.*Y.*Z5)*Z5A2)  -  (SA2*(S_v))./(exp(Y.*Z5)*Z5A2)  -  (exp(-Z5 

2,*Y.*Z5)*SA2*(S_v))/Z5A2  ... 

-  (6*exp(-2*Z5  -  Y.*Z5)*SA2*(S_v))/Z5A2  +  (4*exp(-Z5  -  Y.*Z5)*SA2*(S_v))/Z5A2  - 

(6*S.*Y.*(S_v))/(exp(3*Z5)*Z5A2)  +  (8*S.*Y.*(S_v))/(exp(2*Z5)*Z5A2)  ... 

-  (2*S.*Y.*(S_v))/(exp(Z5)*Z5A2)  +  (2*S.*Y.*(S_v))/(exp(Y.*Z5)*Z5A2)  +  (6*exp(-2*Z5  - 

Y.*Z5)*S.*Y.*(S_v))/Z5A2  -  (8*exp(-Z5  -  Y.*Z5)*S.*Y.*(S_v))/Z5A2  ... 

(3*SA2.*Y.*(S_v))/(exp(3*Z5)*Z5A2)  +  (4*SA2.*Y.*(S_v))/(exp(2*Z5)*Z5A2) 

(SA2.*Y.*(S_v))/(exp(Z5)*Z5A2)  +  (SA2.*Y.*(S_v))/(exp(Y.*Z5)*Z5A2) ... 

+  (3*exp(-2*Z5  -  Y.*Z5)*SA2.*Y.*(S_v))/Z5A2  -  (4*exp(-Z5  -  Y.*Z5)*SA2.*Y.*(S_v))/Z5A2  + 
(S*(S_v))/Z5  +  (2*S*(S_v))/(exp(3*Z5)*Z5)  +  (9*S*(S_v))/(exp(2*Z5)*Z5)... 

-  (4*S*(S_v))/(exp(Z5)*Z5)  +  (S*(S_v))./(exp(2.*Y.*Z5)*Z5)  -  (2*exp(-2*Z5  -  Y.*Z5)*S*(S_v))/Z5  + 
(exp(-Z5  -  Y.*Z5)*S*(S_v))/Z5  +  (2*SA2*(S_v))/(exp(3*Z5)*Z5)  ... 

+  (SA2*(S_v))/(exp(2*Z5)*Z5)  -  (2*exp(-2*Z5  -  Y.*Z5)*SA2*(S_v))/Z5  -  (exp(-Z5  - 

Y.*Z5)*SA2*(S_v))/Z5  -  (2*S.*Y.*(S_v))/Z5  -  (13*S.*Y.*(S_v))/(exp(2*Z5)*Z5) ... 

+  (8*S.*Y.*(S_v))/(exp(Z5)*Z5)  -  (S.*Y.*(S_v))./(exp(2.*Y.*Z5)*Z5) 

(2*SA2.*Y.*(S_v))/(exp(2*Z5)*Z5)  +  (2*exp(-Z5  -  Y.*Z5)*SA2.*Y.*(S_v))/Z5  +  (S.*Y ,A2*(S_v))/Z5  ... 

+  (3*S.*Y.A2*(S_v))/(exp(4*Z5)*Z5)  -  (4*S.*Y  ,A2*(S_v))/(exp(3*Z5)*Z5)  + 

(4*S.*Y.A2*(S_v))/(exp(2*Z5)*Z5)  -  (4*S.*Y ,A2*(S_v))/(exp(Z5)*Z5) ... 

-  (3*exp(-3*Z5  -  Y.*Z5)*S.*Y.A2*(S_v))/Z5  +  (4*exp(-2*Z5  -  Y.*Z5)*S.*Y  A2*(S_v))/Z5  -  (exp(-Z5  - 
Y.*Z5)*S.*Y.A2*(S_v))/Z5  +  (3*SA2.*Y ,A2*(S_v))/(exp(4*Z5)*Z5) ... 

-  (4*SA2.*Y.A2*(S_v))/(exp(3*Z5)*Z5)  +  (SA2.*Y  ,A2*(S_v))/(exp(2*Z5)*Z5)  -  (3*exp(-3*Z5  - 
Y.*Z5)*SA2.*Y.A2*(S_v))/Z5  +  (4*exp(-2*Z5  -  Y.*Z5)*SA2.*Y ,A2*(S_v))/Z5  ... 
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(exp(-Z5  -  Y.*Z5)*SA2.*Y.A2*(S_v))/Z5  -  (3*S*Z5*(S_v))/(4*exp(4*Z5)) 

(7*S*Z5*(S_v))/(4*exp(2*Z5))  -  (3*SA2*Z5*(S_v))/(4*exp(4*Z5))  -  (3*SA2*Z5*(S_v))/(4*exp(2*Z5)) ... 

+  (2*S.*Y.*Z5*(S_v))/exp(2*Z5)  +  (SA2.*Y.*Z5*(S_v))/exp(2*Z5)  +  (S.*Y  A2*Z5*(S_v))/exp(3*Z5)  + 
(3*S.*Y ,A2*Z5*(S_v))/(2*exp(2*Z5))  +  (SA2.*Y A2*Z5*(S_v))/exp(3*Z5)  ... 

+  (SA2.*Y.A2*Z5*(S_v))/(2*exp(2*Z5))  -  (2*S.*Y  A3*Z5*(S_v))/exp(2*Z5) 

(SA2.*Y.A3*Z5*(S_v))/exp(2*Z5)  +  (3*S.*Y.A4*Z5*(S_v))/(4*exp(4*Z5)) 

(S.*Y.A4*Z5*(S_v))/exp(3*Z5) ... 

+  (S.*Y.A4*Z5*(S_v))/(4*exp(2*Z5))  +  (3*SA2.*Y.A4*Z5*(S_v))/(4*exp(4*Z5)) 

(SA2.*Y.A4*Z5*(S_v))/exp(3*Z5)  +  (SA2.*Y.A4*Z5*(S_v))/(4*exp(2*Z5))  + 

(S*Z5A2*(S_v))/(2*exp(3*Z5))  ... 

+  (SA2*Z5A2*(S_v))/(2*exp(3*Z5))  -  (S.*Y  A2*Z5A2*(S_v))/exp(3*Z5) 

(SA2.*Y.A2*Z5A2*(S_v))/exp(3*Z5)  +  (S.*Y.A4*Z5A2*(S_v))/(2*exp(3*Z5)) ... 

+  (SA2.*Y.A4*Z5A2*(S_v))/(2*exp(3*Z5))  +  (9*SA2*(S_v)A2)/(16*exp(6*Z5)) 

(23*SA2*(S_v)A2)/(8*exp(4*Z5))  +  (2*SA2*(S_v)A2)/exp(3*Z5)  +  (SA2*(S_v)A2)/(16*exp(2*Z5)) ... 

-  (exp(-2*Z5  -  2.*Y.*Z5)*SA2*(S_v)A2)/2  -  exp(-3*Z5  -  Y.*Z5)*SA2*(S_v)A2  - 

(2*SA2.*Y.*(S_v)A2)/exp(3*Z5)  -  (SA2.*Y.*(S_v)A2)/exp(2*Z5)  +  (9*SA2.*Y.A2*(S_v)A2)/(8*exp(6*Z5)) 

(3*SA2.*Y.A2*(S_v)A2)/(2*exp(5*Z5))  +  (11*SA2.*Y  A2*(S_v)A2)/(2*exp(4*Z5)) 

(7*SA2.*Y.A2*(S_v)A2)/(2*exp(3*Z5))  +  (15*SA2.*Y  A2*(S_v)A2)/(8*exp(2*Z5))  ... 

+  (exp(-2*Z5  -  2.*Y.*Z5)*SA2.*Y.A2*(S_v)A2)/2  +  exp(-3*Z5  -  Y.*Z5)*SA2.*Y  A2*(S_v)A2  - 
(3*SA2.*Y.A3*(S_v)A2)/exp(4*Z5)  +  (4*SA2.*Y  A3*(S_v)A2)/exp(3*Z5)  ... 

(SA2.*Y.A3*(S_v)A2)/exp(2*Z5)  +  (9*SA2.*Y.A4*(S_v)A2)/(16*exp(6*Z5)) 

(3*SA2.*Y.A4*(S_v)A2)/(2*exp(5*Z5))  +  (ll*SA2.*Y.A4*(S_v)A2)/(8*exp(4*Z5))  ... 

(SA2.*Y.A4*(S_v)A2)/(2*exp(3*Z5))  +  (SA2.*Y.A4*(S_v)A2)/(16*exp(2*Z5))  + 

(9*SA2*(S_v)A2)/(4*exp(6*Z5)*Z5A4)  -  (6*SA2*(S_v)A2)/(exp(5*Z5)*Z5A4)  ... 

+  (1  l*SA2*(S_v)A2)/(2*exp(4*Z5)*Z5A4)  -  (2*SA2*(S_v)A2)/(exp(3*Z5)*Z5A4)  + 

(SA2*(S_v)A2)/(4*exp(2*Z5)*Z5A4)  +  (SA2*(S_v)A2)./(4*exp(2.*Y.*Z5)*Z5A4) ... 

+  (9*exp(-4*Z5  -  2.*Y.*Z5)*SA2*(S_v)A2)/(4*Z5A4)  -  (6*exp(-3*Z5  -  2,*Y.*Z5)*SA2*(S_v)A2)/Z5A4  + 
(1  l*exp(-2*Z5  -  2,*Y.*Z5)*SA2*(S_v)A2)/(2*Z5A4) ... 

-  (2*exp(-Z5  -  2.*Y.*Z5)*SA2*(S_v)A2)/Z5A4  -  (9*exp(-5*Z5  -  Y.*Z5)*SA2*(S_v)A2)/(2*Z5A4)  + 
(12*exp(-4*Z5  -  Y.*Z5)*SA2*(S_v)A2)/Z5A4  -  (ll*exp(-3*Z5  -  Y.*Z5)*SA2*(S_v)A2)/Z5A4  ... 

+  (4*exp(-2*Z5  -  Y.*Z5)*SA2*(S_v)A2)/Z5A4  -  (exp(-Z5  -  Y.*Z5)*SA2*(S_v)A2)/(2*Z5A4)  + 
(12*SA2*(S_v)A2)/(exp(5*Z5)*Z5A3)  -  (22*SA2*(S_v)A2)/(exp(4*Z5)*Z5A3)  ... 

+  (27*SA2*(S_v)A2)/(2*exp(3*Z5)*Z5A3)  -  (4*SA2*(S_v)A2)/(exp(2*Z5)*Z5A3)  + 

(SA2*(S_v)A2)/(2*exp(Z5)*Z5A3)  -  (SA2*(S_v)A2)./(2*exp(3.*Y.*Z5)*Z5A3) ... 

-  (SA2*(S_v)A2)./(2*exp(Y.*Z5)*Z5A3)  -  (3*exp(-2*Z5  -  3.*Y.*Z5)*SA2*(S_v)A2)/(2*Z5A3)  +  (2*exp(- 
Z5  -  3.*Y.*Z5)*SA2*(S_v)A2)/Z5A3  -  (3*exp(-3*Z5  -  2.*Y.*Z5)*SA2*(S_v)A2)/(2*Z5A3)  ... 

+  (2*exp(-2*Z5  -  2,*Y.*Z5)*SA2*(S_v)A2)/Z5A3  -  (exp(-Z5  -  2.*Y.*Z5)*SA2*(S_v)A2)/(2*Z5A3)  - 
(9*exp(-4*Z5  -  Y.*Z5)*SA2*(S_v)A2)/Z5A3  +  (18*exp(-3*Z5  -  Y.*Z5)*SA2*(S_v)A2)/Z5A3  ... 

-  (25*exp(-2*Z5  -  Y.*Z5)*SA2*(S_v)A2)/(2*Z5A3)  +  (4*exp(-Z5  -  Y.*Z5)*SA2*(S_v)A2)/Z5A3  - 
(9*SA2.*Y.*(S_v)A2)/(2*exp(5*Z5)*Z5A3)  +  (12*SA2.*Y.*(S_v)A2)/(exp(4*Z5)*Z5A3)  ... 

(1  l*SA2.*Y.*(S_v)A2)/(exp(3*Z5)*Z5A3)  +  (4*SA2.*Y.*(S_v)A2)/(exp(2*Z5)*Z5A3) 

(SA2.*Y.*(S_v)A2)/(2*exp(Z5)*Z5A3)  +  (SA2.*Y.*(S_v)A2)/(2*exp(Y.*Z5)*Z5A3)  ... 

+  (9*exp(-4*Z5  -  Y.*Z5)*SA2.*Y.*(S_v)A2)/(2*Z5A3)  -  (12*exp(-3*Z5 

Y.*Z5)*SA2.*Y.*(S_v)A2)/Z5A3  +  (1  l*exp(-2*Z5  -  Y.*Z5)*SA2.*Y.*(S_v)A2)/Z5A3  ... 

(4*exp(-Z5  -  Y.*Z5)*SA2.*Y.*(S_v)A2)/Z5A3  +  (SA2*(S_v)A2)/(4*Z5A2)  + 

(9*SA2*(S_v)A2)/(4*exp(6*Z5)*Z5A2)  -  (3*SA2*(S_v)A2)/(exp(5*Z5)*Z5A2)  + 

(19*SA2*(S_v)A2)/(exp(4*Z5)*Z5A2)  ... 

(19*SA2*(S_v)A2)/(exp(3*Z5)*Z5A2)  +  (35*SA2*(S_v)A2)/(4*exp(2*Z5)*Z5A2) 

(2*SA2*(S_v)A2)/(exp(Z5)*Z5A2)  +  (SA2*(S_v)A2)./(4*exp(4.*Y.*Z5)*Z5A2) ... 

+  (SA2*(S_v)A2)./(2*exp(2.*Y.*Z5)*Z5A2)  +  (exp(-Z5  -  3.*Y.*Z5)*SA2*(S_v)A2)/Z5A2  +  (5*exp(-2*Z5 
-  2.*Y.*Z5)*SA2*(S_v)A2)/Z5A2  -  (2*exp(-Z5  -  2.*Y.*Z5)*SA2*(S_v)A2)/Z5A2  ... 

-  (9*exp(-5*Z5  -  Y.*Z5)*SA2*(S_v)A2)/(4*Z5A2)  +  (3*exp(-4*Z5  -  Y.*Z5)*SA2*(S_v)A2)/Z5A2  + 
(5*exp(-3*Z5  -  Y.*Z5)*SA2*(S_v)A2)/Z5A2  -  (exp(-2*Z5  -  Y.*Z5)*SA2*(S_v)A2)/Z5A2  ... 

+  (exp(-Z5  -  Y.*Z5)*SA2*(S_v)A2)/(4*Z5A2)  -  (SA2.*Y.*(S_v)A2)/(2*Z5A2) 

(15*SA2.*Y.*(S_v)A2)/(exp(4*Z5)*Z5A2)  +  (26*SA2.*Y.*(S_v)A2)/(exp(3*Z5)*Z5A2)  ... 
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(29*SA2.*Y.*(S_v)A2)/(2*exp(2*Z5)*Z5A2)  +  (4*SA2.*Y.*(S_v)A2)/(exp(Z5)*Z5A2) 

(SA2.*Y.*(S_v)A2)./(2*exp(2.*Y.*Z5)*Z5A2)  -  (3*exp(-2*Z5  -  2.*Y.*Z5)*SA2.*Y.*(S_v)A2)/(2*Z5A2) ... 

+  (2*exp(-Z5  -  2.*Y.*Z5)*SA2.*Y.*(S_v)A2)/Z5A2  +  (SA2.*Y.A2*(S_v)A2)/(4*Z5A2)  + 

(9*SA2.*Y.A2*(S_v)A2)/(4*exp(6*Z5)*Z5A2)  -  (6*SA2.*Y.A2*(S_v)A2)/(exp(5*Z5)*Z5A2) ... 

+  (31*SA2.*Y.A2*(S_v)A2)/(4*exp(4*Z5)*Z5A2)  -  (8*SA2.*Y  A2*(S_v)A2)/(exp(3*Z5)*Z5A2)  + 

(23*SA2.*Y.A2*(S_v)A2)/(4*exp(2*Z5)*Z5A2)  -  (2*SA2.*Y  A2*(S_v)A2)/(exp(Z5)*Z5A2)  ... 

(9*exp(-5*Z5  -  Y.*Z5)*SA2.*Y.A2*(S_v)A2)/(4*Z5A2)  +  (6*exp(-4*Z5 

Y.*Z5)*SA2.*Y.A2*(S_v)A2)/Z5A2  -  (1  l*exp(-3*Z5  -  Y.*Z5)*SA2.*Y  A2*(S_v)A2)/(2*Z5A2)  ... 

+  (2*exp(-2*Z5  -  Y.*Z5)*SA2.*Y.A2*(S_v)A2)/Z5A2  -  (exp(-Z5  -  Y.*Z5)*SA2.*Y  A2*(S_v)A2)/(4*Z5A2) 
+  (9*SA2*(S_v)A2)/(2*exp(5*Z5)*Z5)  -  (SA2*(S_v)A2)/(exp(4*Z5)*Z5)  ... 

+  (25*SA2*(S_v)A2)/(4*exp(3*Z5)*Z5)  -  (3*SA2*(S_v)A2)/(exp(2*Z5)*Z5)  + 

(3*SA2*(S_v)A2)/(4*exp(Z5)*Z5)  +  (3*exp(-3*Z5  -  2.*Y.*Z5)*SA2*(S_v)A2)/(4*Z5)  ... 

+  (3*exp(-Z5  -  2.*Y.*Z5)*SA2*(S_v)A2)/(4*Z5)  +  (3*exp(-4*Z5  -  Y.*Z5)*SA2*(S_v)A2)/Z5  -  (2*exp(- 
3*Z5  -  Y.*Z5)*SA2*(S_v)A2)/Z5  +  (2*exp(-2*Z5  -  Y.*Z5)*SA2*(S_v)A2)/Z5  ... 

(9*SA2.*Y.*(S_v)A2)/(4*exp(5*Z5)*Z5)  +  (3*SA2.*Y.*(S_v)A2)/(exp(4*Z5)*Z5) 

(1  l*SA2.*Y.*(S_v)A2)/(exp(3*Z5)*Z5)  +  (7*SA2.*Y.*(S_v)A2)/(exp(2*Z5)*Z5) ... 

-  (7*SA2.*Y.*(S_v)A2)/(4*exp(Z5)*Z5)  -  (exp(-Z5  -  2.*Y.*Z5)*SA2.*Y.*(S_v)A2)/Z5  -  (2*exp(-2*Z5  - 
Y.*Z5)*SA2.*Y.*(S_v)A2)/Z5  +  (15*SA2.*Y ,A2*(S_v)A2)/(2*exp(5*Z5)*Z5)  ... 

-  (13*SA2.*Y.A2*(S_v)A2)/(exp(4*Z5)*Z5)  +  (41*SA2.*Y  ,A2*(S_v)A2)/(4*exp(3*Z5)*Z5)  - 

(6*SA2.*Y.A2*(S_v)A2)/(exp(2*Z5)*Z5)  +  (5*SA2.*Y ,A2*(S_v)A2)/(4*exp(Z5)*Z5)  ... 

+  (3*exp(-3*Z5  -  2.*Y.*Z5)*SA2.*Y.A2*(S_v)A2)/(4*Z5)  -  (exp(-2*Z5 

2.*Y.*Z5)*SA2.*Y.A2*(S_v)A2)/Z5  +  (exp(-Z5  -  2.*Y.*Z5)*SA2.*Y ,A2*(S_v)A2)/(4*Z5)  ... 

(9*SA2.*Y.A3*(S_v)A2)/(4*exp(5*Z5)*Z5)  +  (6*SA2.*Y  ,A3*(S_v)A2)/(exp(4*Z5)*Z5) 

(1  l*SA2.*Y.A3*(S_v)A2)/(2*exp(3*Z5)*Z5)  +  (2*SA2.*Y ,A3*(S_v)A2)/(exp(2*Z5)*Z5) ... 

(SA2.*Y.A3*(S_v)A2)/(4*exp(Z5)*Z5)  -  (3*SA2*Z5*(S_v)A2)/(4*exp(5*Z5)) 

(3*SA2*Z5*(S_v)A2)/(4*exp(3*Z5))  +  (SA2.*Y.*Z5*(S_v)A2)/exp(3*Z5)  + 

(SA2.*Y.A2*Z5*(S_v)A2)/exp(4*Z5) ... 

+  (SA2.*Y.A2*Z5*(S_v)A2)/(2*exp(3*Z5))  -  (SA2.*Y.A3*Z5*(S_v)A2)/exp(3*Z5)  + 

(3*SA2.*Y.A4*Z5*(S_v)A2)/(4*exp(5*Z5))  -  (SA2.*Y  A4*Z5*(S_v)A2)/exp(4*Z5) ... 

+  (SA2.*Y.A4*Z5*(S_v)A2)/(4*exp(3*Z5))  +  (SA2*Z5A2*(S_v)A2)/(4*exp(4*Z5)) 

(SA2.*Y.A2*Z5A2*(S_v)A2)/(2*exp(4*Z5))  +  (SA2.*Y.A4*Z5A2*(S_v)A2)/(4*exp(4*Z5)); 


Ns5=Nf5+Nc+Ny5; 

Phi5=Nf5./[Nc+Ny5]; 

Be5=l./[1+Phi5]; 

Gf5=Nf5./Ns5; 

Gh5=[Nc+Ny5]./Ns5; 

Nh5=Nc+Ny5; 


plot(Y,Nsl,'b',Y,Ns2,'g',Y,Ns3,'r',Y,Ns4,'k',Y,Ns5,'m') 

%  plot(Y,Be  1  ,'b', Y,Be2,'g',Y,Be3,'r', Y,Be4,'k',Y,Be5,'m') 

%  plot(Y,Phil,'b',Y,Phi2,'g',Y,Phi3,'r',Y,Phi4,'k',Y,Phi5,'m') 

%  plot(Y,Gfl,'b',Y,GE,'g',Y,GO,'r',Y,Gf4,'k',Y,Gf5,'m') 

%  plot(Y,Ghl,'b',Y,Gh2,'g',Y,Gh3,'r',Y,Gh4,'k',Y,Gh5,'m') 

%  plot(Y,Nfl,'b',Y,Nf2,'g',Y,Nf3,'r',Y,Nf4,'k',Y,Nf5,'m') 

%  plot(Y,Nhl,'b',Y,Nh2,'g',Y,Nh3,'r',Y,Nh4,'k',Y,Nh5,'m') 

%  plot(Nhl,Nfl,'b',Nh2,Nf2,'g',Nh3,Nf3,'r',Nh4,Nf4,'k',Nh5,Nf5,'m') 
PLOTTOOLS  ON 
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1.3.  Distribution  of  Ns,Be,  O ,  GF ,  GH,  Nc  and  N H  versus  Y  for  a  range  of 


Pe  and  set  of  S ,  Sv ,  Z  &  Br 


S=l;  S_v=l;  Z=l;  Br=l; 

%  S=5;  S_v=0.75;  Z=7.5;  Br=0.4; 

%  %  %  %  %  S=2;  S_v=5;  Z=6;  Br=0.5; 

%  %  %  %  %  S=2;  S_v=1.5;  Z=5;  Br=0.4; 
%  %  %  %  %  S=25;  S_v=15;  Z=10;  Br=0.6; 
%  %  %  %  %  S=10;  S_v=25;  Z=20;  Br=0.5; 


q=1.86; 

s=l; 

Dh=250*10A-6; 
Y=0:0. 005:1; 


Nf=Br*[(ZA2).*exp(-2.*Y.*Z)+(ZA2)*exp(-2*Z)-2*ZA2.*exp(-Z-Y.*Z)]; 


Ny=l  -  exp(-2*Z)  +  exp(-Z  -  Y.*Z)  -  (2*S)/exp(2*Z)  +  2*exp(-Z  -  Y.*Z)*S  -  SA2/exp(2*Z)  +  exp(-Z  - 
Y.*Z)*SA2  -  2.*Y  +  Y.A2  +  Y.A2/exp(2*Z)  -  exp(-Z  -  Y.*Z).*Y.A2  ... 

+  (2*S.*Y.A2)/exp(2*Z)  -  2*exp(-Z  -  Y.*Z)*S.*Y.A2  +  (SA2.*Y.A2)/exp(2*Z)  -  exp(-Z  - 
Y.*Z)*SA2.*Y.A2  +  l/(exp(2*Z)*ZA2)  +  l./(exp(2.*Y.*Z)*ZA2) ... 

-  (2*exp(-Z  -  Y.*Z))/ZA2  +  (2*S)/(exp(2*Z)*ZA2)  +  (2*S)./(exp(2.*Y.*Z)*ZA2)  -  (4*exp(-Z  - 
Y.*Z)*S)/ZA2  +  SA2/(exp(2*Z)*ZA2)  +  SA2./(exp(2.*Y.*Z)*ZA2)  ... 

-  (2*exp(-Z  -  Y.*Z)*SA2)/ZA2  +  2/(exp(Z)*Z)  -  2,/(exp(Y.*Z)*Z)  +  (2*S)/(exp(Z)*Z)  - 
(2*S)./(exp(Y.*Z)*Z)  -  (2,*Y)/(exp(Z)*Z)  +  (2,*Y)/(exp(Y.*Z)*Z) ... 

-  (2*S.*Y)/(exp(Z)*Z)  +  (2*S.*Y)/(exp(Y.*Z)*Z)  -  Z/exp(Z)  -  (S*Z)/exp(Z)  +  (Y.*Z)/exp(Z)  + 
(S.*Y.*Z)/exp(Z)  +(Y.A2*Z)/exp(Z)  +  (S.*Y ,A2*Z)/exp(Z)  -  (Y  A3*Z)/exp(Z) ... 

-  (S.*Y.A3*Z)/exp(Z)  +  ZA2/(4*exp(2*Z))  +  (S*ZA2)/(2*exp(2*Z))  +  (SA2*ZA2)/(4*exp(2*Z))  - 
(Y.A2*ZA2)/(2*exp(2*Z))  -  (S.*Y.A2*ZA2)/exp(2*Z)  ... 

-  (SA2.*Y.A2*ZA2)/(2*exp(2*Z))  +  (Y  A4*ZA2)/(4*exp(2*Z))  +  (S.*Y.A4*ZA2)/(2*exp(2*Z))  + 
(SA2.*Y.A4*ZA2)/(4*exp(2*Z))  -  (7*S*(S_v))/(2*exp(3*Z)) ... 

+  (2*S*(S_v))/exp(2*Z)  +  (S*(S_v))/exp(Z)  -  (exp(-Z  -  2.*Y.*Z)*S*(S_v))/2  -  (5*SA2*(S_v))/exp(3*Z) 
+  (2*SA2*(S_v))/exp(2*Z)  -  (SA2*(S_v))/(2*exp(Z)) ... 

-  (exp(-Z  -  2.*Y.*Z)*SA2*(S_v))/2  -  (2*S.*Y.*(S_v))/exp(2*Z)  -  (3*S.*Y.*(S_v))/exp(Z)  + 
(3*SA2.*Y.*(S_v))/(2*exp(3*Z))  -  (2*SA2.*Y.*(S_v))/exp(2*Z) ... 

+  (SA2.*Y.*(S_v))/(2*exp(Z))  +  (13*S.*Y.A2*(S_v))/(2*exp(3*Z))  -  (4*S.*Y.A2*(S_v))/exp(2*Z)  + 
(3*S.*Y.A2*(S_v))/exp(Z)  +  (exp(-Z  -  2.*Y.*Z)*S.*Y.A2*(S_v))/2  ... 

+  (5*SA2.*Y.A2*(S_v))/exp(3*Z)  -  (2*SA2.*Y.A2*(S_v))/exp(2*Z)  +  (SA2.*Y.A2*(S_v))/(2*exp(Z))  + 
(exp(-Z  -  2.*Y.*Z)*SA2.*Y.A2*(S_v))/2  -  (3*S.*Y.A3*(S_v))/exp(3*Z)  ... 

+  (4*S.*Y.A3*(S_v))/exp(2*Z)  -  (S.*Y.A3*(S_v))/exp(Z)  -  (3*SA2.*Y  A3*(S_v))/(2*exp(3*Z))  + 
(2*SA2.*Y.A3*(S_v))/exp(2*Z)  -  (SA2.*Y.A3*(S_v))/(2*exp(Z)) ... 

+  (3*S*(S_v))/(exp(4*Z)*ZA3)  -  (4*S*(S_v))/(exp(3*Z)*ZA3)  +  (S*(S_v))/(exp(2*Z)*ZA3)  + 
(S*(S_v))./(exp(2.*Y.*Z)*ZA3)  +  (3*exp(-2*Z  -  2.*Y.*Z)*S*(S_v))/ZA3  ... 

-  (4*exp(-Z  -  2.*Y.*Z)*S*(S_v))/ZA3  -  (6*exp(-3*Z  -  Y.*Z)*S*(S_v))/ZA3  +  (8*exp(-2*Z  - 
Y.*Z)*S*(S_v))/ZA3  -  (2*exp(-Z  -  Y.*Z)*S*(S_v))/ZA3  ... 

+  (3*SA2*(S_v))/(exp(4*Z)*ZA3)  -  (4*SA2*(S_v))/(exp(3*Z)*ZA3)  +  (SA2*(S_v))/(exp(2*Z)*ZA3)  + 
(SA2*(S_v))./(exp(2.*Y.*Z)*ZA3)  +  (3*exp(-2*Z  -  2,*Y.*Z)*SA2*(S_v))/ZA3  ... 
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-  (4*exp(-Z  -  2.*Y.*Z)*SA2*(S_v))/ZA3  -  (6*exp(-3*Z  -  Y.*Z)*SA2*(S_v))/ZA3  +  (8*exp(-2*Z  - 
Y.*Z)*SA2*(S_v))/ZA3  -  (2*exp(-Z  -  Y.*Z)*SA2*(S_v))/ZA3  ... 

+  (ll*S*(S_v))/(exp(3*Z)*ZA2)  -  (8*S*(S_v))/(exp(2*Z)*ZA2)  +  (2*S*(S_v))/(exp(Z)*ZA2)  - 
(S*(S_v))./(exp(3.*Y.*Z)*ZA2)  -  (2*S*(S_v))./(exp(Y.*Z)*ZA2) ... 

-  (exp(-Z  -  2,*Y.*Z)*S*(S_v))/ZA2  -  (9*exp(-2*Z  -  Y.*Z)*S*(S_v))/ZA2  +  (8*exp(-Z  - 
Y.*Z)*S*(S_v))/ZA2  +  (8*SA2*(S_v))/(exp(3*Z)*ZA2);  ... 

-  (4*SA2*(S_v))/(exp(2*Z)*ZA2)  +  (SA2*(S_v))/(exp(Z)*ZA2)  -  (SA2*(S_v))./(exp(3.*Y.*Z)*ZA2)  - 
(SA2*(S_v))./(exp(Y.*Z)*ZA2)  -  (exp(-Z  -  2.*Y.*Z)*SA2*(S_v))/ZA2  ... 

-  (6*exp(-2*Z  -  Y.*Z)*SA2*(S_v))/ZA2  +  (4*exp(-Z  -  Y.*Z)*SA2*(S_v))/ZA2  - 

(6*S.*Y.*(S_v))/(exp(3*Z)*ZA2)  +  (8*S.*Y.*(S_v))/(exp(2*Z)*ZA2)  ... 

-  (2*S.*Y.*(S_v))/(exp(Z)*ZA2)  +  (2*S.*Y.*(S_v))/(exp(Y.*Z)*ZA2)  +  (6*exp(-2*Z  - 

Y.*Z)*S.*Y.*(S_v))/ZA2  -  (8*exp(-Z  -  Y.*Z)*S.*Y.*(S_v))/ZA2  ... 

(3*SA2.*Y.*(S_v))/(exp(3*Z)*ZA2)  +  (4*SA2.*Y.*(S_v))/(exp(2*Z)*ZA2) 

(SA2.*Y.*(S_v))/(exp(Z)*ZA2)  +  (SA2.*Y.*(S_v))/(exp(Y.*Z)*ZA2)  ... 

+  (3*exp(-2*Z  -  Y.*Z)*SA2.*Y.*(S_v))/ZA2  -  (4*exp(-Z  -  Y.*Z)*SA2.*Y.*(S_v))/ZA2  +  (S*(S_v))/Z  + 
(2*S*(S_v))/(exp(3*Z)*Z)  +  (9*S*(S_v))/(exp(2*Z)*Z)... 

-  (4*S*(S_v))/(exp(Z)*Z)  +  (S*(S_v))./(exp(2.*Y.*Z)*Z)  -  (2*exp(-2*Z  -  Y.*Z)*S*(S_v))/Z  +  (exp(-Z  - 
Y.*Z)*S*(S_v))/Z  +  (2*SA2*(S_v))/(exp(3*Z)*Z) ... 

+  (SA2*(S_v))/(exp(2*Z)*Z)  -  (2*exp(-2*Z  -  Y.*Z)*SA2*(S_v))/Z  -  (exp(-Z  -  Y.*Z)*SA2*(S_v))/Z  - 
(2*S.*Y.*(S_v))/Z  -  (13*S.*Y.*(S_v))/(exp(2*Z)*Z) ... 

+  (8*S.*Y.*(S_v))/(exp(Z)*Z)  -  (S.*Y.*(S_v))./(exp(2.*Y.*Z)*Z)  -  (2*SA2.*Y.*(S_v))/(exp(2*Z)*Z)  + 
(2*exp(-Z  -  Y.*Z)*SA2.*Y.*(S_v))/Z  +  (S.*Y.A2*(S_v))/Z  ... 

+  (3*S.*Y.A2*(S_v))/(exp(4*Z)*Z)  -  (4*S.*Y.A2*(S_v))/(exp(3*Z)*Z)  + 

(4*S.*Y.A2*(S_v))/(exp(2*Z)*Z)  -  (4*S.*Y.A2*(S_v))/(exp(Z)*Z) ... 

-  (3*exp(-3*Z  -  Y.*Z)*S.*Y.A2*(S_v))/Z  +  (4*exp(-2*Z  -  Y.*Z)*S.*Y.A2*(S_v))/Z  -  (exp(-Z  - 
Y.*Z)*S.*Y.A2*(S_v))/Z  +  (3*SA2.*Y.A2*(S_v))/(exp(4*Z)*Z)  ... 

-  (4*SA2.*Y.A2*(S_v))/(exp(3*Z)*Z)  +  (SA2.*Y  A2*(S_v))/(exp(2*Z)*Z)  -  (3*exp(-3*Z  - 

Y.*Z)*SA2.*Y.A2*(S_v))/Z  +  (4*exp(-2*Z  -  Y.*Z)*SA2.*Y.A2*(S_v))/Z  ... 

-  (exp(-Z  -  Y.*Z)*SA2.*Y.A2*(S_v))/Z  -  (3*S*Z*(S_v))/(4*exp(4*Z))  -  (7*S*Z*(S_v))/(4*exp(2*Z))  - 
(3*SA2*Z*(S_v))/(4*exp(4*Z))  -  (3*SA2*Z*(S_v))/(4*exp(2*Z)) ... 

+  (2*S.*Y.*Z*(S_v))/exp(2*Z)  +  (SA2.*Y.*Z*(S_v))/exp(2*Z)  +  (S.*Y.A2*Z*(S_v))/exp(3*Z)  + 
(3*S.*Y ,A2*Z*(S_v))/(2*exp(2*Z))  +  (SA2.*Y.A2*Z*(S_v))/exp(3*Z)  ... 

+  (SA2.*Y.A2*Z*(S_v))/(2*exp(2*Z))  -  (2*S.*Y.A3*Z*(S_v))/exp(2*Z) 

(SA2.*Y.A3*Z*(S_v))/exp(2*Z)  +  (3*S.*Y.A4*Z*(S_v))/(4*exp(4*Z))  -  (S.*Y.A4*Z*(S_v))/exp(3*Z) ... 

+  (S.*Y.A4*Z*(S_v))/(4*exp(2*Z))  +  (3*SA2.*Y.A4*Z*(S_v))/(4*exp(4*Z)) 

(SA2.*Y.A4*Z*(S_v))/exp(3*Z)  +  (SA2.*Y.A4*Z*(S_v))/(4*exp(2*Z))  +  (S*ZA2*(S_v))/(2*exp(3*Z)) ... 

+  (SA2*ZA2*(S_v))/(2*exp(3*Z))  -  (S.*Y  A2*ZA2*(S_v))/exp(3*Z)  -  (SA2.*Y.A2*ZA2*(S_v))/exp(3*Z) 
+  (S.*Y.A4*ZA2*(S_v))/(2*exp(3*Z)) ... 

+  (SA2.*Y.A4*ZA2*(S_v))/(2*exp(3*Z))  +  (9*SA2*(S_v)A2)/(16*exp(6*Z)) 

(23*SA2*(S_v)A2)/(8*exp(4*Z))  +  (2*SA2*(S_v)A2)/exp(3*Z)  +  (SA2*(S_v)A2)/(16*exp(2*Z)) ... 

(exp(-2*Z  -  2.*Y.*Z)*SA2*(S_v)A2)/2  -  exp(-3*Z  -  Y.*Z)*SA2*(S_v)A2 

(2*SA2.*Y.*(S_v)A2)/exp(3*Z)  -  (SA2.*Y.*(S_v)A2)/exp(2*Z)  +  (9*SA2.*Y  A2*(S_v)A2)/(8*exp(6*Z)) ... 

(3*SA2.*Y.A2*(S_v)A2)/(2*exp(5*Z))  +  (1 1*SA2.*Y  A2*(S_v)A2)/(2*exp(4*Z)) 

(7*SA2.*Y  A2*(S_v)A2)/(2*exp(3*Z))  +  (15*SA2.*Y  A2*(S_v)A2)/(8*exp(2*Z)) ... 

+  (exp(-2*Z  -  2.*Y.*Z)*SA2.*Y.A2*(S_v)A2)/2  +  exp(-3*Z  -  Y.*Z)*SA2.*Y.A2*(S_v)A2  - 
(3*SA2.*Y  A3*(S_v)A2)/exp(4*Z)  +  (4*SA2.*Y.A3*(S_v)A2)/exp(3*Z) ... 

(SA2.*Y.A3*(S_v)A2)/exp(2*Z)  +  (9*SA2.*Y.A4*(S_v)A2)/(16*exp(6*Z)) 

(3*SA2.*Y.A4*(S_v)A2)/(2*exp(5*Z))  +  (1  l*SA2.*Y.A4*(S_v)A2)/(8*exp(4*Z)) ... 

(SA2.*Y.A4*(S_v)A2)/(2*exp(3*Z))  +  (SA2.*Y.A4*(S_v)A2)/(16*exp(2*Z))  + 

(9*SA2*(S_v)A2)/(4*exp(6*Z)*ZA4)  -  (6*SA2*(S_v)A2)/(exp(5*Z)*ZA4) ... 

+  (1  l*SA2*(S_v)A2)/(2*exp(4*Z)*ZA4)  -  (2*SA2*(S_v)A2)/(exp(3*Z)*ZA4)  + 

(SA2*(S_v)A2)/(4*exp(2*Z)*ZA4)  +  (SA2*(S_v)A2)./(4*exp(2.*Y.*Z)*ZA4) ... 

+  (9*exp(-4*Z  -  2.*Y.*Z)*SA2*(S_v)A2)/(4*ZA4)  -  (6*exp(-3*Z  -  2.*Y.*Z)*SA2*(S_v)A2)/ZA4  + 
(ll*exp(-2*Z  -  2.*Y.*Z)*SA2*(S_v)A2)/(2*ZA4)  ... 

-  (2*exp(-Z  -  2.*Y.*Z)*SA2*(S_v)A2)/ZA4  -  (9*exp(-5*Z  -  Y.*Z)*SA2*(S_v)A2)/(2*ZA4)  +  (12*exp(- 
4*Z  -  Y.*Z)*SA2*(S_v)A2)/ZA4  -  (ll*exp(-3*Z  -  Y.*Z)*SA2*(S_v)A2)/ZA4  ... 
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+  (4*exp(-2*Z  -  Y.*Z)*SA2*(S_v)A2)/ZA4  -  (exp(-Z  -  Y.*Z)*SA2*(S_v)A2)/(2*ZA4)  + 

(12*SA2*(S_v)A2)/(exp(5*Z)*ZA3)  -  (22*SA2*(S_v)A2)/(exp(4*Z)*ZA3) ... 

+  (27*SA2*(S_v)A2)/(2*exp(3*Z)*ZA3)  -  (4*SA2*(S_v)A2)/(exp(2*Z)*ZA3)  + 

(SA2*(S_v)A2)/(2*exp(Z)*ZA3)  -  (SA2*(S_v)A2)./(2*exp(3.*Y.*Z)*ZA3)  ... 

-  (SA2*(S_v)A2)./(2*exp(Y.*Z)*ZA3)  -  (3*exp(-2*Z  -  3.*Y.*Z)*SA2*(S_v)A2)/(2*ZA3)  +  (2*exp(-Z  - 
3.*Y.*Z)*SA2*(S_v)A2)/ZA3  -  (3*exp(-3*Z  -  2.*Y.*Z)*SA2*(S_v)A2)/(2*ZA3) ... 

+  (2*exp(-2*Z  -  2.*Y.*Z)*SA2*(S_v)A2)/ZA3  -  (exp(-Z  -  2.*Y.*Z)*SA2*(S_v)A2)/(2*ZA3)  -  (9*exp(-4*Z 

-  Y.*Z)*SA2*(S_v)A2)/ZA3  +  (18*exp(-3*Z  -  Y.*Z)*SA2*(S_v)A2)/ZA3  ... 

-  (25*exp(-2*Z  -  Y.*Z)*SA2*(S_v)A2)/(2*ZA3)  +  (4*exp(-Z  -  Y.*Z)*SA2*(S_v)A2)/ZA3  - 
(9*SA2.*Y.*(S_v)A2)/(2*exp(5*Z)*ZA3)  +  (12*SA2.*Y.*(S_v)A2)/(exp(4*Z)*ZA3) ... 

(ll*SA2.*Y.*(S_v)A2)/(exp(3*Z)*ZA3)  +  (4*SA2.*Y.*(S_v)A2)/(exp(2*Z)*ZA3) 

(SA2.*Y.*(S_v)A2)/(2*exp(Z)*ZA3)  +  (SA2.*Y.*(S_v)A2)/(2*exp(Y.*Z)*ZA3) ... 

+  (9*exp(-4*Z  -  Y.*Z)*SA2.*Y.*(S_v)A2)/(2*ZA3)  -  (12*exp(-3*Z  -  Y.*Z)*SA2.*Y.*(S_v)A2)/ZA3  + 
(ll*exp(-2*Z  -  Y.*Z)*SA2.*Y.*(S_v)A2)/ZA3  ... 

(4*exp(-Z  -  Y.*Z)*SA2.*Y.*(S_v)A2)/ZA3  +  (SA2*(S_v)A2)/(4*ZA2)  + 

(9*SA2*(S_v)A2)/(4*exp(6*Z)*ZA2)  -  (3*SA2*(S_v)A2)/(exp(5*Z)*ZA2)  + 

(19*SA2*(S_v)A2)/(exp(4*Z)*ZA2)  ... 

(19*SA2*(S_v)A2)/(exp(3*Z)*ZA2)  +  (35*SA2*(S_v)A2)/(4*exp(2*Z)*ZA2) 

(2*SA2*(S_v)A2)/(exp(Z)*ZA2)  +  (SA2*(S_v)A2)./(4*exp(4.*Y.*Z)*ZA2) ... 

+  (SA2*(S_v)A2)./(2*exp(2.*Y.*Z)*ZA2)  +  (exp(-Z  -  3.*Y.*Z)*SA2*(S_v)A2)/ZA2  +  (5*exp(-2*Z  - 
2,*Y.*Z)*SA2*(S_v)A2)/ZA2  -  (2*exp(-Z  -  2.*Y.*Z)*SA2*(S_v)A2)/ZA2  ... 

-  (9*exp(-5*Z  -  Y.*Z)*SA2*(S_v)A2)/(4*ZA2)  +  (3*exp(-4*Z  -  Y.*Z)*SA2*(S_v)A2)/ZA2  +  (5*exp(-3*Z 

-  Y.*Z)*SA2*(S_v)A2)/ZA2  -  (exp(-2*Z  -  Y.*Z)*SA2*(S_v)A2)/ZA2  ... 

+  (exp(-Z  -  Y.*Z)*SA2*(S_v)A2)/(4*ZA2)  -  (SA2.*Y.*(S_v)A2)/(2*ZA2) 

(15*SA2.*Y.*(S_v)A2)/(exp(4*Z)*ZA2)  +  (26*SA2.*Y.*(S_v)A2)/(exp(3*Z)*ZA2) ... 

(29*SA2.*Y.*(S_v)A2)/(2*exp(2*Z)*ZA2)  +  (4*SA2.*Y.*(S_v)A2)/(exp(Z)*ZA2) 

(SA2.*Y.*(S_v)A2)./(2*exp(2.*Y.*Z)*ZA2)  -  (3*exp(-2*Z  -  2.*Y.*Z)*SA2.*Y.*(S_v)A2)/(2*ZA2)  ... 

+  (2*exp(-Z  -  2.*Y.*Z)*SA2.*Y.*(S_v)A2)/ZA2  +  (SA2.*Y  ,A2*(S_v)A2)/(4*ZA2)  + 

(9*SA2.*Y  A2*(S_v)A2)/(4*exp(6*Z)*ZA2)  -  (6*SA2.*Y  A2*(S_v)A2)/(exp(5*Z)*ZA2) ... 

+  (31*SA2.*Y.A2*(S_v)A2)/(4*exp(4*Z)*ZA2)  -  (8*SA2.*Y  ,A2*(S_v)A2)/(exp(3*Z)*ZA2)  + 

(23*SA2.*Y.A2*(S_v)A2)/(4*exp(2*Z)*ZA2)  -  (2*SA2.*Y  A2*(S_v)A2)/(exp(Z)*ZA2) ... 

-  (9*exp(-5*Z  -  Y.*Z)*SA2.*Y.A2*(S_v)A2)/(4*ZA2)  +  (6*exp(-4*Z  -  Y.*Z)*SA2.*Y  A2*(S_v)A2)/ZA2  - 
(ll*exp(-3*Z  -  Y.*Z)*SA2.*Y.A2*(S_v)A2)/(2*ZA2) ... 

+  (2*exp(-2*Z  -  Y.*Z)*SA2.*Y.A2*(S_v)A2)/ZA2  -  (exp(-Z  -  Y.*Z)*SA2.*Y ,A2*(S_v)A2)/(4*ZA2)  + 
(9*SA2*(S_v)A2)/(2*exp(5*Z)*Z)  -  (SA2*(S_v)A2)/(exp(4*Z)*Z) ... 

+  (25*SA2*(S_v)A2)/(4*exp(3*Z)*Z)  -  (3*SA2*(S_v)A2)/(exp(2*Z)*Z)  +  (3*SA2*(S_v)A2)/(4*exp(Z)*Z) 
+  (3*exp(-3*Z  -  2.*Y.*Z)*SA2*(S_v)A2)/(4*Z)  ... 

+  (3*exp(-Z  -  2.*Y.*Z)*SA2*(S_v)A2)/(4*Z)  +  (3*exp(-4*Z  -  Y.*Z)*SA2*(S_v)A2)/Z  -  (2*exp(-3*Z  - 
Y.*Z)*SA2*(S_v)A2)/Z  +  (2*exp(-2*Z  -  Y.*Z)*SA2*(S_v)A2)/Z  ... 

(9*SA2.*Y.*(S_v)A2)/(4*exp(5*Z)*Z)  +  (3*SA2.*Y.*(S_v)A2)/(exp(4*Z)*Z) 

(ll*SA2.*Y.*(S_v)A2)/(exp(3*Z)*Z)  +  (7*SA2.*Y.*(S_v)A2)/(exp(2*Z)*Z) ... 

-  (7*SA2.*Y.*(S_v)A2)/(4*exp(Z)*Z)  -  (exp(-Z  -  2,*Y.*Z)*SA2.*Y.*(S_v)A2)/Z  -  (2*exp(-2*Z  - 
Y.*Z)*SA2.*Y.*(S_v)A2)/Z  +  (15*SA2.*Y.A2*(S_v)A2)/(2*exp(5*Z)*Z) ... 

(13*SA2.*Y.A2*(S_v)A2)/(exp(4*Z)*Z)  +  (41*SA2.*Y  A2*(S_v)A2)/(4*exp(3*Z)*Z) 

(6*SA2.*Y  A2*(S_v)A2)/(exp(2*Z)*Z)  +  (5*SA2.*Y ,A2*(S_v)A2)/(4*exp(Z)*Z)  ... 

+  (3*exp(-3*Z  -  2.*Y.*Z)*SA2.*Y.A2*(S_v)A2)/(4*Z)  -  (exp(-2*Z  -  2.*Y.*Z)*SA2.*Y ,A2*(S_v)A2)/Z  + 
(exp(-Z  -  2.*Y.*Z)*SA2.*Y.A2*(S_v)A2)/(4*Z)  ... 

(9*SA2.*Y.A3*(S_v)A2)/(4*exp(5*Z)*Z)  +  (6*SA2.*Y  ,A3*(S_v)A2)/(exp(4*Z)*Z) 

(1  l*SA2.*Y.A3*(S_v)A2)/(2*exp(3*Z)*Z)  +  (2*SA2.*Y  A3*(S_v)A2)/(exp(2*Z)*Z) ... 

(SA2.*Y.A3*(S_v)A2)/(4*exp(Z)*Z)  -  (3*SA2*Z*(S_v)A2)/(4*exp(5*Z)) 

(3*SA2*Z*(S_v)A2)/(4*exp(3*Z))  +  (SA2.*Y.*Z*(S_v)A2)/exp(3*Z)  +  (SA2.*Y ,A2*Z*(S_v)A2)/exp(4*Z)  ... 

+  (SA2.*Y.A2*Z*(S_v)A2)/(2*exp(3*Z))  -  (SA2.*Y  A3*Z*(S_v)A2)/exp(3*Z)  + 

(3*SA2.*Y.A4*Z*(S_v)A2)/(4*exp(5*Z))  -  (SA2.*Y.A4*Z*(S_v)A2)/exp(4*Z) ... 

+  (SA2.*Y.A4*Z*(S_v)A2)/(4*exp(3*Z))  +  (SA2*ZA2*(S_v)A2)/(4*exp(4*Z)) 

(SA2.*Y.A2*ZA2*(S_v)A2)/(2*exp(4*Z))  +  (SA2.*Y.A4*ZA2*(S_v)A2)/(4*exp(4*Z)); 
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Pel=2; 

Ncl=[l./PelA2]*[16*qA2+sA2*DhA2+8*q*s*Dh]; 

Nsl=Nf+Ncl+Ny; 

Phi  1  =Nf./[Nc  1  +Ny] ; 

Be  1=1 ./[  1+Phi  1  ]; 

Gfl=Nf./Nsl; 

Ghl=[Ncl+Ny]./Nsl; 

Nhl=Ncl+Ny; 


Pe2=4; 

Nc2=[l./Pe2A2]*[16*qA2+sA2*DhA2+8*q*s*Dh]; 

Ns2=Nf+Nc2+Ny; 

Phi2=Nf./[Nc2+Ny] ; 

Be2=l./[1+Phi2]; 

Gf2=Nf./Ns2; 

Gh2=[Nc2+Ny]./Ns2; 

Nh2=Nc2+Ny; 


Pe3=6; 

Nc3=[l./Pe3A2]*[16*qA2+sA2*DhA2+8*q*s*Dh]; 

Ns3=Nf+Nc3+Ny; 

Phi3=Nf./[Nc3+Ny] ; 

Be3=l./[1+Phi3]; 

Gf3=Nf./Ns3; 

Gh3=[Nc3+Ny]./Ns3; 

Nh3=Nc3+Ny; 


Pe4=8; 

Nc4=[l./Pe4A2]*[16*qA2+sA2*DhA2+8*q*s*Dh]; 

Ns4=Nf+Nc4+Ny; 

Phi4=Nf./[Nc4+Ny] ; 

Be4=l./[1+Phi4]; 

Gf4=Nf./Ns4; 

Gh4=[Nc4+Ny]./Ns4; 

Nh4=Nc4+Ny; 


Pe5=10; 

Nc5=[l./Pe5A2]*[16*qA2+sA2*DhA2+8*q*s*Dh]; 

Ns5=Nf+Nc5+Ny; 

Phi5=Nf./[Nc5+Ny] ; 

Be5=l./[1+Phi5]; 

Gf5=Nf./Ns5; 

Gh5=[Nc5+Ny]./Ns5; 

Nh5=Nc5+Ny; 


plot(Y,Nsl,'b',Y,Ns2,'g',Y,Ns3,'r',Y,Ns4,'k',Y,Ns5,'m') 

%  plot(Y,Be  1  ,'b', Y,Be2,'g',Y,Be3,'r', Y,Be4,'k',Y,Be5,'m') 

%  plot(Y,Phil,'b',Y,Phi2,'g',Y,Phi3,'r',Y,Phi4,'k',Y,Phi5,'m') 


97 


%  plot(Y,Gfl,'b',Y,Gf2,'g',Y,GO,'r',Y,Gf4,'k',Y,Gf5,'m') 

%  plot(Y,Ghl,'b',Y,Gh2,'g',Y,Gh3,'r',Y,Gh4,'k',Y,Gh5,'m') 

%  plot(Y,Nc  1  ,'b',Y,Nc2,'g',Y,Nc3,'r',Y,Nc4,'k',Y,Nc5,'m') 

%  plot(Y,Nh  I  ,'b',Y,Nh2,'g',Y,Nh3,'r',Y,Nh4,'k',Y,Nh5,'m') 

%  plot(Nh  I  ,Nf,'b',Nh2,Nf,'g',Nh3,Nf,'r',Nh4,Nf,'k',Nh5,Nf,'m') 

PLOTTOOLS  ON 
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1.4.  Distribution  of  Ns,Be,  ®,  GF,  GH,  NF  and  N H  versus  Y  for  a  range  of  S 


and  set  of  Sv,  Z ,  Br  &  Pe 


S_v=l;  Z=l;  Br=l;  Pe=2.5; 

%  S_v=2.5;  Z=3.5;  Br=0.5;  Pe=5; 

%  %  %  %  %  Z=2.5;  S_v=3;  Br=0.6;  Pe=l; 

%  %  %  %  %  Z=7.5;  S_v=15;  Br=0.6;  Pe=2.5; 
%  %  %  %  %  Z=5;  S_v=0.75;  Br=l;  Pe=2; 

%  %  %  %  %  Z=18;  S_v=25;  Br=0.9;  Pe=5; 


q=1.86; 

s=l; 

Dh=250*10A-6; 
Y=0:0. 005:1; 


Nc=[l/PeA2]*[16*qA2+sA2*DhA2+8*q*s*Dh]; 

Nf=Br*[(ZA2).*exp(-2.*Y.*Z)+(ZA2)*exp(-2*Z)-2*ZA2.*exp(-Z-Y.*Z)]; 


Sl=l; 

Nyl=l  -  exp(-2*Z)  +  exp(-Z  -  Y.*Z)  -  (2*Sl)/exp(2*Z)  +  2*exp(-Z  -  Y.*Z)*S1  -  SlA2/exp(2*Z)  +  exp(-Z  - 
Y.*Z)*S1A2  -  2.*Y  +  Y.A2  +  Y.A2/exp(2*Z)  -  exp(-Z  -  Y.*Z).*Y.A2  ... 

+  (2*Sl.*Y.A2)/exp(2*Z)  -  2*exp(-Z  -  Y.*Z)*S1.*Y  A2  +  (SlA2.*Y.A2)/exp(2*Z)  -  exp(-Z  - 
Y.*Z)*S1A2.*Y.A2  +  l/(exp(2*Z)*ZA2)  +  l./(exp(2.*Y.*Z)*ZA2)  ... 

-  (2*exp(-Z  -  Y.*Z))/ZA2  +  (2*Sl)/(exp(2*Z)*ZA2)  +  (2*Sl)./(exp(2.*Y.*Z)*ZA2)  -  (4*exp(-Z  - 
Y.*Z)*S1)/ZA2  +  SlA2/(exp(2*Z)*ZA2)  +  SlA2./(exp(2.*Y.*Z)*ZA2)  ... 

-  (2*exp(-Z  -  Y.*Z)*S1A2)/ZA2  +  2/(exp(Z)*Z)  -  2./(exp(Y.*Z)*Z)  +  (2*Sl)/(exp(Z)*Z)  - 
(2*Sl)./(exp(Y.*Z)*Z)  -  (2.*Y)/(exp(Z)*Z)  +  (2.*Y)/(exp(Y.*Z)*Z)  ... 

-  (2*Sl.*Y)/(exp(Z)*Z)  +  (2*Sl.*Y)/(exp(Y.*Z)*Z)  -  Z/exp(Z)  -  (Sl*Z)/exp(Z)  +  (Y.*Z)/exp(Z)  + 
(Sl.*Y.*Z)/exp(Z)  +(Y.A2*Z)/exp(Z)  +  (S1.*Y ,A2*Z)/exp(Z)  -  (Y  A3*Z)/exp(Z) ... 

-  (S1.*Y ,A3*Z)/exp(Z)  +  ZA2/(4*exp(2*Z))  +  (Sl*ZA2)/(2*exp(2*Z))  +  (SlA2*ZA2)/(4*exp(2*Z))  - 
(Y ,A2*ZA2)/(2*exp(2*Z))  -  (S1.*Y  A2*ZA2)/exp(2*Z) ... 

-  (SlA2.*Y.A2*ZA2)/(2*exp(2*Z))  +  (Y.A4*ZA2)/(4*exp(2*Z))  +  (Sl.*Y.A4*ZA2)/(2*exp(2*Z))  + 
(SlA2.*Y.A4*ZA2)/(4*exp(2*Z))  -  (7*Sl*(S_v))/(2*exp(3*Z)) ... 

+  (2*Sl*(S_v))/exp(2*Z)  +  (Sl*(S_v))/exp(Z)  -  (exp(-Z  -  2.*Y.*Z)*Sl*(S_v))/2 

(5*SlA2*(S_v))/exp(3*Z)  +  (2*SlA2*(S_v))/exp(2*Z)  -  (SlA2*(S_v))/(2*exp(Z)) ... 

-  (exp(-Z  -  2.*Y.*Z)*SlA2*(S_v))/2  -  (2*Sl.*Y.*(S_v))/exp(2*Z)  -  (3*Sl.*Y.*(S_v))/exp(Z)  + 
(3*SlA2.*Y.*(S_v))/(2*exp(3*Z))  -  (2*SlA2.*Y.*(S_v))/exp(2*Z) ... 

+  (SlA2.*Y.*(S_v))/(2*exp(Z))  +  (13*S1.*Y ,A2*(S_v))/(2*exp(3*Z))  -  (4*S1.*Y  A2*(S_v))/exp(2*Z)  + 
(3*Sl.*Y.A2*(S_v))/exp(Z)  +  (exp(-Z  -  2.*Y.*Z)*S1.*Y  A2*(S_v))/2  ... 

+  (5*SlA2.*Y.A2*(S_v))/exp(3*Z)  -  (2*S1A2.*Y ,A2*(S_v))/exp(2*Z)  +  (S1A2.*Y  A2*(S_v))/(2*exp(Z)) 
+  (exp(-Z  -  2.*Y.*Z)*SlA2.*Y.A2*(S_v))/2  -  (3*S1.*Y  A3*(S_v))/exp(3*Z) ... 

+  (4*Sl.*Y.A3*(S_v))/exp(2*Z)  -  (S1.*Y ,A3*(S_v))/exp(Z)  -  (3*S1A2.*Y ,A3*(S_v))/(2*exp(3*Z))  + 
(2*SlA2.*Y.A3*(S_v))/exp(2*Z)  -  (S1A2.*Y ,A3*(S_v))/(2*exp(Z)) ... 

+  (3*Sl*(S_v))/(exp(4*Z)*ZA3)  -  (4*Sl*(S_v))/(exp(3*Z)*ZA3)  +  (Sl*(S_v))/(exp(2*Z)*ZA3)  + 
(Sl*(S_v))./(exp(2.*Y.*Z)*ZA3)  +  (3*exp(-2*Z  -  2.*Y.*Z)*Sl*(S_v))/ZA3  ... 

-  (4*exp(-Z  -  2.*Y.*Z)*Sl*(S_v))/ZA3  -  (6*exp(-3*Z  -  Y.*Z)*Sl*(S_v))/ZA3  +  (8*exp(-2*Z  - 
Y.*Z)*Sl*(S_v))/ZA3  -  (2*exp(-Z  -  Y.*Z)*Sl*(S_v))/ZA3  ... 
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+  (3*SlA2*(S_v))/(exp(4*Z)*ZA3)  -  (4*SlA2*(S_v))/(exp(3*Z)*ZA3)  +  (SlA2*(S_v))/(exp(2*Z)*ZA3)  + 
(SlA2*(S_v))./(exp(2.*Y.*Z)*ZA3)  +  (3*exp(-2*Z  -  2.*Y.*Z)*SlA2*(S_v))/ZA3  ... 

-  (4*exp(-Z  -  2.*Y.*Z)*SlA2*(S_v))/ZA3  -  (6*exp(-3*Z  -  Y.*Z)*SlA2*(S_v))/ZA3  +  (8*exp(-2*Z  - 
Y.*Z)*SlA2*(S_v))/ZA3  -  (2*exp(-Z  -  Y.*Z)*SlA2*(S_v))/ZA3  ... 

+  (ll*Sl*(S_v))/(exp(3*Z)*ZA2)  -  (8*Sl*(S_v))/(exp(2*Z)*ZA2)  +  (2*Sl*(S_v))/(exp(Z)*ZA2)  - 
(Sl*(S_v))./(exp(3.*Y.*Z)*ZA2)  -  (2*Sl*(S_v))./(exp(Y.*Z)*ZA2) ... 

-  (exp(-Z  -  2.*Y.*Z)*Sl*(S_v))/ZA2  -  (9*exp(-2*Z  -  Y.*Z)*Sl*(S_v))/ZA2  +  (8*exp(-Z  - 
Y.*Z)*Sl*(S_v))/ZA2  +  (8*SlA2*(S_v))/(exp(3*Z)*ZA2);  ... 

-  (4*SlA2*(S_v))/(exp(2*Z)*ZA2)  +  (SlA2*(S_v))/(exp(Z)*ZA2)  -  (SlA2*(S_v))./(exp(3.*Y.*Z)*ZA2)  - 
(SlA2*(S_v))./(exp(Y.*Z)*ZA2)  -  (exp(-Z  -  2.*Y.*Z)*SlA2*(S_v))/ZA2  ... 

-  (6*exp(-2*Z  -  Y.*Z)*SlA2*(S_v))/ZA2  +  (4*exp(-Z  -  Y.*Z)*SlA2*(S_v))/ZA2  - 

(6*Sl.*Y.*(S_v))/(exp(3*Z)*ZA2)  +  (8*Sl.*Y.*(S_v))/(exp(2*Z)*ZA2)  ... 

-  (2*Sl.*Y.*(S_v))/(exp(Z)*ZA2)  +  (2*Sl.*Y.*(S_v))/(exp(Y.*Z)*ZA2)  +  (6*exp(-2*Z  - 

Y.*Z)*Sl.*Y.*(S_v))/ZA2  -  (8*exp(-Z  -  Y.*Z)*Sl.*Y.*(S_v))/ZA2  ... 

(3*SlA2.*Y.*(S_v))/(exp(3*Z)*ZA2)  +  (4*SlA2.*Y.*(S_v))/(exp(2*Z)*ZA2) 

(SlA2.*Y.*(S_v))/(exp(Z)*ZA2)  +  (SlA2.*Y.*(S_v))/(exp(Y.*Z)*ZA2) ... 

+  (3*exp(-2*Z  -  Y.*Z)*SlA2.*Y.*(S_v))/ZA2  -  (4*exp(-Z  -  Y.*Z)*SlA2.*Y.*(S_v))/ZA2  +  (Sl*(S_v))/Z 
+  (2*Sl*(S_v))/(exp(3*Z)*Z)  +  (9*Sl*(S_v))/(exp(2*Z)*Z)... 

-  (4*Sl*(S_v))/(exp(Z)*Z)  +  (Sl*(S_v))./(exp(2.*Y.*Z)*Z)  -  (2*exp(-2*Z  -  Y.*Z)*Sl*(S_v))/Z  + 
(exp(-Z  -  Y.*Z)*Sl*(S_v))/Z  +  (2*SlA2*(S_v))/(exp(3*Z)*Z) ... 

+  (SlA2*(S_v))/(exp(2*Z)*Z)  -  (2*exp(-2*Z  -  Y.*Z)*SlA2*(S_v))/Z  -  (exp(-Z  -  Y.*Z)*SlA2*(S_v))/Z  - 
(2*Sl.*Y.*(S_v))/Z  -  (13*Sl.*Y.*(S_v))/(exp(2*Z)*Z) ... 

+  (8*Sl.*Y.*(S_v))/(exp(Z)*Z)  -  (Sl.*Y.*(S_v))./(exp(2.*Y.*Z)*Z) 

(2*SlA2.*Y.*(S_v))/(exp(2*Z)*Z)  +  (2*exp(-Z  -  Y.*Z)*SlA2.*Y.*(S_v))/Z  +  (Sl.*Y.A2*(S_v))/Z  ... 

+  (3*Sl.*Y.A2*(S_v))/(exp(4*Z)*Z)  -  (4*Sl.*Y.A2*(S_v))/(exp(3*Z)*Z)  + 

(4*Sl.*Y.A2*(S_v))/(exp(2*Z)*Z)  -  (4*Sl.*Y.A2*(S_v))/(exp(Z)*Z) ... 

-  (3*exp(-3*Z  -  Y.*Z)*Sl.*Y.A2*(S_v))/Z  +  (4*exp(-2*Z  -  Y.*Z)*Sl.*Y.A2*(S_v))/Z  -  (exp(-Z  - 
Y.*Z)*Sl.*Y.A2*(S_v))/Z  +  (3*SlA2.*Y.A2*(S_v))/(exp(4*Z)*Z) ... 

-  (4*SlA2.*Y.A2*(S_v))/(exp(3*Z)*Z)  +  (SlA2.*Y.A2*(S_v))/(exp(2*Z)*Z)  -  (3*exp(-3*Z  - 

Y.*Z)*SlA2.*Y.A2*(S_v))/Z  +  (4*exp(-2*Z  -  Y.*Z)*SlA2.*Y.A2*(S_v))/Z  ... 

-  (exp(-Z  -  Y.*Z)*SlA2.*Y.A2*(S_v))/Z  -  (3*Sl*Z*(S_v))/(4*exp(4*Z))  -  (7*Sl*Z*(S_v))/(4*exp(2*Z)) 
-  (3*SlA2*Z*(S_v))/(4*exp(4*Z))  -  (3*SlA2*Z*(S_v))/(4*exp(2*Z)) ... 

+  (2*Sl.*Y.*Z*(S_v))/exp(2*Z)  +  (SlA2.*Y.*Z*(S_v))/exp(2*Z)  +  (S1.*Y  A2*Z*(S_v))/exp(3*Z)  + 
(3*Sl.*Y.A2*Z*(S_v))/(2*exp(2*Z))  +  (SlA2.*Y.A2*Z*(S_v))/exp(3*Z)  ... 

+  (SlA2.*Y.A2*Z*(S_v))/(2*exp(2*Z))  -  (2*Sl.*Y.A3*Z*(S_v))/exp(2*Z) 

(SlA2.*Y.A3*Z*(S_v))/exp(2*Z)  +  (3*Sl.*Y.A4*Z*(S_v))/(4*exp(4*Z))  -  (Sl.*Y.A4*Z*(S_v))/exp(3*Z) 

+  (Sl.*Y.A4*Z*(S_v))/(4*exp(2*Z))  +  (3*SlA2.*Y.A4*Z*(S_v))/(4*exp(4*Z)) 

(SlA2.*Y.A4*Z*(S_v))/exp(3*Z)  +  (SlA2.*Y.A4*Z*(S_v))/(4*exp(2*Z))  +  (Sl*ZA2*(S_v))/(2*exp(3*Z)) 

+  (SlA2*ZA2*(S_v))/(2*exp(3*Z))  -  (S1.*Y  A2*ZA2*(S_v))/exp(3*Z) 

(SlA2.*Y.A2*ZA2*(S_v))/exp(3*Z)  +  (Sl.*Y.A4*ZA2*(S_v))/(2*exp(3*Z))  ... 

+  (SlA2.*Y.A4*ZA2*(S_v))/(2*exp(3*Z))  +  (9*SlA2*(S_v)A2)/(16*exp(6*Z)) 

(23*SlA2*(S_v)A2)/(8*exp(4*Z))  +  (2*SlA2*(S_v)A2)/exp(3*Z)  +  (SlA2*(S_v)A2)/(16*exp(2*Z)) ... 

(exp(-2*Z  -  2,*Y.*Z)*SlA2*(S_v)A2)/2  -  exp(-3*Z  -  Y.*Z)*SlA2*(S_v)A2 

(2*SlA2.*Y.*(S_v)A2)/exp(3*Z)  -  (SlA2.*Y.*(S_v)A2)/exp(2*Z)  +  (9*SlA2.*Y.A2*(S_v)A2)/(8*exp(6*Z)) 

(3*SlA2.*Y.A2*(S_v)A2)/(2*exp(5*Z))  +  (1 1*S1A2.*Y  A2*(S_v)A2)/(2*exp(4*Z)) 

(7*SlA2.*Y.A2*(S_v)A2)/(2*exp(3*Z))  +  (15*SlA2.*Y.A2*(S_v)A2)/(8*exp(2*Z)) ... 

+  (exp(-2*Z  -  2.*Y.*Z)*SlA2.*Y.A2*(S_v)A2)/2  +  exp(-3*Z  -  Y.*Z)*SlA2.*Y.A2*(S_v)A2  - 

(3*SlA2.*Y.A3*(S_v)A2)/exp(4*Z)  +  (4*SlA2.*Y.A3*(S_v)A2)/exp(3*Z) ... 

(SlA2.*Y.A3*(S_v)A2)/exp(2*Z)  +  (9*SlA2.*Y.A4*(S_v)A2)/(16*exp(6*Z)) 

(3*SlA2.*Y.A4*(S_v)A2)/(2*exp(5*Z))  +  (1  l*SlA2.*Y.A4*(S_v)A2)/(8*exp(4*Z)) ... 

(SlA2.*Y.A4*(S_v)A2)/(2*exp(3*Z))  +  (SlA2.*Y.A4*(S_v)A2)/(16*exp(2*Z))  + 

(9*SlA2*(S_v)A2)/(4*exp(6*Z)*ZA4)  -  (6*SlA2*(S_v)A2)/(exp(5*Z)*ZA4) ... 
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+  (1  l*SlA2*(S_v)A2)/(2*exp(4*Z)*ZA4)  -  (2*SlA2*(S_v)A2)/(exp(3*Z)*ZA4)  + 

(SlA2*(S_v)A2)/(4*exp(2*Z)*ZA4)  +  (SlA2*(S_v)A2)./(4*exp(2.*Y.*Z)*ZA4)  ... 

+  (9*exp(-4*Z  -  2.*Y.*Z)*SlA2*(S_v)A2)/(4*ZA4)  -  (6*exp(-3*Z  -  2.*Y.*Z)*SlA2*(S_v)A2)/ZA4  + 
(ll*exp(-2*Z  -  2.*Y.*Z)*SlA2*(S_v)A2)/(2*ZA4)  ... 

-  (2*exp(-Z  -  2.*Y.*Z)*SlA2*(S_v)A2)/ZA4  -  (9*exp(-5*Z  -  Y.*Z)*SlA2*(S_v)A2)/(2*ZA4)  +  (12*exp(- 
4*Z  -  Y.*Z)*SlA2*(S_v)A2)/ZA4  -  (ll*exp(-3*Z  -  Y.*Z)*SlA2*(S_v)A2)/ZA4  ... 

+  (4*exp(-2*Z  -  Y.*Z)*SlA2*(S_v)A2)/ZA4  -  (exp(-Z  -  Y.*Z)*SlA2*(S_v)A2)/(2*ZA4)  + 
(12*SlA2*(S_v)A2)/(exp(5*Z)*ZA3)  -  (22*SlA2*(S_v)A2)/(exp(4*Z)*ZA3)  ... 

+  (27*SlA2*(S_v)A2)/(2*exp(3*Z)*ZA3)  -  (4*SlA2*(S_v)A2)/(exp(2*Z)*ZA3)  + 

(SlA2*(S_v)A2)/(2*exp(Z)*ZA3)  -  (SlA2*(S_v)A2)./(2*exp(3.*Y.*Z)*ZA3)  ... 

-  (SlA2*(S_v)A2)./(2*exp(Y.*Z)*ZA3)  -  (3*exp(-2*Z  -  3.*Y.*Z)*SlA2*(S_v)A2)/(2*ZA3)  +  (2*exp(-Z  - 
3.*Y.*Z)*SlA2*(S_v)A2)/ZA3  -  (3*exp(-3*Z  -  2.*Y.*Z)*SlA2*(S_v)A2)/(2*ZA3)  ... 

+  (2*exp(-2*Z  -  2.*Y.*Z)*SlA2*(S_v)A2)/ZA3  -  (exp(-Z  -  2.*Y.*Z)*SlA2*(S_v)A2)/(2*ZA3)  -  (9*exp(- 
4*Z  -  Y.*Z)*SlA2*(S_v)A2)/ZA3  +  (18*exp(-3*Z  -  Y.*Z)*SlA2*(S_v)A2)/ZA3  ... 

-  (25*exp(-2*Z  -  Y.*Z)*SlA2*(S_v)A2)/(2*ZA3)  +  (4*exp(-Z  -  Y.*Z)*SlA2*(S_v)A2)/ZA3  - 
(9*SlA2.*Y.*(S_v)A2)/(2*exp(5*Z)*ZA3)  +  (12*SlA2.*Y.*(S_v)A2)/(exp(4*Z)*ZA3) ... 

(1  l*SlA2.*Y.*(S_v)A2)/(exp(3*Z)*ZA3)  +  (4*SlA2.*Y.*(S_v)A2)/(exp(2*Z)*ZA3) 

(SlA2.*Y.*(S_v)A2)/(2*exp(Z)*ZA3)  +  (SlA2.*Y.*(S_v)A2)/(2*exp(Y.*Z)*ZA3) ... 

+  (9*exp(-4*Z  -  Y.*Z)*SlA2.*Y.*(S_v)A2)/(2*ZA3)  -  (12*exp(-3*Z  -  Y.*Z)*SlA2.*Y.*(S_v)A2)/ZA3  + 
(ll*exp(-2*Z  -  Y.*Z)*SlA2.*Y.*(S_v)A2)/ZA3  ... 

(4*exp(-Z  -  Y.*Z)*SlA2.*Y.*(S_v)A2)/ZA3  +  (SlA2*(S_v)A2)/(4*ZA2)  + 

(9*SlA2*(S_v)A2)/(4*exp(6*Z)*ZA2)  -  (3*SlA2*(S_v)A2)/(exp(5*Z)*ZA2)  + 

(19*SlA2*(S_v)A2)/(exp(4*Z)*ZA2) ... 

(19*SlA2*(S_v)A2)/(exp(3*Z)*ZA2)  +  (35*SlA2*(S_v)A2)/(4*exp(2*Z)*ZA2) 

(2*SlA2*(S_v)A2)/(exp(Z)*ZA2)  +  (SlA2*(S_v)A2)./(4*exp(4.*Y.*Z)*ZA2) ... 

+  (SlA2*(S_v)A2)./(2*exp(2.*Y.*Z)*ZA2)  +  (exp(-Z  -  3.*Y.*Z)*SlA2*(S_v)A2)/ZA2  +  (5*exp(-2*Z  - 
2,*Y.*Z)*SlA2*(S_v)A2)/ZA2  -  (2*exp(-Z  -  2.*Y.*Z)*SlA2*(S_v)A2)/ZA2  ... 

-  (9*exp(-5*Z  -  Y.*Z)*SlA2*(S_v)A2)/(4*ZA2)  +  (3*exp(-4*Z  -  Y.*Z)*SlA2*(S_v)A2)/ZA2  +  (5*exp(- 
3*Z  -  Y.*Z)*SlA2*(S_v)A2)/ZA2  -  (exp(-2*Z  -  Y.*Z)*SlA2*(S_v)A2)/ZA2  ... 

+  (exp(-Z  -  Y.*Z)*SlA2*(S_v)A2)/(4*ZA2)  -  (SlA2.*Y.*(S_v)A2)/(2*ZA2) 

(15*SlA2.*Y.*(S_v)A2)/(exp(4*Z)*ZA2)  +  (26*SlA2.*Y.*(S_v)A2)/(exp(3*Z)*ZA2)  ... 

(29*SlA2.*Y.*(S_v)A2)/(2*exp(2*Z)*ZA2)  +  (4*SlA2.*Y.*(S_v)A2)/(exp(Z)*ZA2) 

(SlA2.*Y.*(S_v)A2)./(2*exp(2.*Y.*Z)*ZA2)  -  (3*exp(-2*Z  -  2,*Y.*Z)*SlA2.*Y.*(S_v)A2)/(2*ZA2) ... 

+  (2*exp(-Z  -  2.*Y.*Z)*SlA2.*Y.*(S_v)A2)/ZA2  +  (S1A2.*Y  ,A2*(S_v)A2)/(4*ZA2)  + 

(9*SlA2.*Y.A2*(S_v)A2)/(4*exp(6*Z)*ZA2)  -  (6*S1A2.*Y  A2*(S_v)A2)/(exp(5*Z)*ZA2)  ... 

+  (31*SlA2.*Y.A2*(S_v)A2)/(4*exp(4*Z)*ZA2)  -  (8*S1A2.*Y  ,A2*(S_v)A2)/(exp(3*Z)*ZA2)  + 

(23*SlA2.*Y.A2*(S_v)A2)/(4*exp(2*Z)*ZA2)  -  (2*S1A2.*Y ,A2*(S_v)A2)/(exp(Z)*ZA2) ... 

-  (9*exp(-5*Z  -  Y.*Z)*SlA2.*Y.A2*(S_v)A2)/(4*ZA2)  +  (6*exp(-4*Z  -  Y.*Z)*S1A2.*Y ,A2*(S_v)A2)/ZA2 
-  (ll*exp(-3*Z  -  Y.*Z)*SlA2.*Y.A2*(S_v)A2)/(2*ZA2) ... 

+  (2*exp(-2*Z  -  Y.*Z)*SlA2.*Y.A2*(S_v)A2)/ZA2  -  (exp(-Z  -  Y.*Z)*S1A2.*Y  A2*(S_v)A2)/(4*ZA2)  + 
(9*SlA2*(S_v)A2)/(2*exp(5*Z)*Z)  -  (SlA2*(S_v)A2)/(exp(4*Z)*Z) ... 

+  (25*SlA2*(S_v)A2)/(4*exp(3*Z)*Z)  -  (3*SlA2*(S_v)A2)/(exp(2*Z)*Z)  + 

(3*SlA2*(S_v)A2)/(4*exp(Z)*Z)  +  (3*exp(-3*Z  -  2.*Y.*Z)*SlA2*(S_v)A2)/(4*Z) ... 

+  (3*exp(-Z  -  2,*Y.*Z)*SlA2*(S_v)A2)/(4*Z)  +  (3*exp(-4*Z  -  Y.*Z)*SlA2*(S_v)A2)/Z  -  (2*exp(-3*Z  - 
Y.*Z)*SlA2*(S_v)A2)/Z  +  (2*exp(-2*Z  -  Y.*Z)*SlA2*(S_v)A2)/Z  ... 

(9*SlA2.*Y.*(S_v)A2)/(4*exp(5*Z)*Z)  +  (3*SlA2.*Y.*(S_v)A2)/(exp(4*Z)*Z) 

(1  l*SlA2.*Y.*(S_v)A2)/(exp(3*Z)*Z)  +  (7*SlA2.*Y.*(S_v)A2)/(exp(2*Z)*Z) ... 

-  (7*SlA2.*Y.*(S_v)A2)/(4*exp(Z)*Z)  -  (exp(-Z  -  2.*Y.*Z)*SlA2.*Y.*(S_v)A2)/Z  -  (2*exp(-2*Z  - 
Y.*Z)*SlA2.*Y.*(S_v)A2)/Z  +  (15*SlA2.*Y.A2*(S_v)A2)/(2*exp(5*Z)*Z)  ... 

(13*SlA2.*Y.A2*(S_v)A2)/(exp(4*Z)*Z)  +  (41*S1A2.*Y  ,A2*(S_v)A2)/(4*exp(3*Z)*Z) 

(6*SlA2.*Y.A2*(S_v)A2)/(exp(2*Z)*Z)  +  (5*S1A2.*Y ,A2*(S_v)A2)/(4*exp(Z)*Z) ... 

+  (3*exp(-3*Z  -  2.*Y.*Z)*SlA2.*Y.A2*(S_v)A2)/(4*Z)  -  (exp(-2*Z  -  2.*Y.*Z)*S1A2.*Y ,A2*(S_v)A2)/Z 
+  (exp(-Z  -  2.*Y.*Z)*SlA2.*Y.A2*(S_v)A2)/(4*Z) ... 

(9*S1A2.*Y  ,A3*(S_v)A2)/(4*exp(5*Z)*Z)  +  (6*S1A2.*Y  ,A3*(S_v)A2)/(exp(4*Z)*Z) 

(1  l*SlA2.*Y.A3*(S_v)A2)/(2*exp(3*Z)*Z)  +  (2*S1A2.*Y  A3*(S_v)A2)/(exp(2*Z)*Z)  ... 
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(SlA2.*Y.A3*(S_v)A2)/(4*exp(Z)*Z)  -  (3*SlA2*Z*(S_v)A2)/(4*exp(5*Z)) 

(3*SlA2*Z*(S_v)A2)/(4*exp(3*Z))  +  (SlA2.*Y.*Z*(S_v)A2)/exp(3*Z)  + 

(SlA2.*Y.A2*Z*(S_v)A2)/exp(4*Z) ... 

+  (SlA2.*Y.A2*Z*(S_v)A2)/(2*exp(3*Z))  -  (SlA2.*Y.A3*Z*(S_v)A2)/exp(3*Z)  + 

(3*SlA2.*Y.A4*Z*(S_v)A2)/(4*exp(5*Z))  -  (S1A2.*Y  A4*Z*(S_v)A2)/exp(4*Z) ... 

+  (SlA2.*Y.A4*Z*(S_v)A2)/(4*exp(3*Z))  +  (SlA2*ZA2*(S_v)A2)/(4*exp(4*Z)) 

(SlA2.*Y.A2*ZA2*(S_v)A2)/(2*exp(4*Z))  +  (SlA2.*Y.A4*ZA2*(S_v)A2)/(4*exp(4*Z)); 


Nsl=Nf+Nc+Nyl; 

Phil=Nf./[Nc+Nyl]; 

Be  1=1  ./[1+Phil]; 

Gfl=Nf./Nsl; 

Ghl=[Nc+Nyl]./Nsl; 

Nhl=Nc+Nyl; 


S2=2; 

Ny2=l  -  exp(-2*Z)  +  exp(-Z  -  Y.*Z)  -  (2*S2)/exp(2*Z)  +  2*exp(-Z  -  Y.*Z)*S2  -  S2A2/exp(2*Z)  +  exp(-Z  - 
Y.*Z)*S2A2  -  2.*Y  +  Y ,A2  +  Y  A2/exp(2*Z)  -  exp(-Z  -  Y.*Z).*Y  A2  ... 

+  (2*S2.*Y.A2)/exp(2*Z)  -  2*exp(-Z  -  Y.*Z)*S2.*Y  A2  +  (S2A2.*Y.A2)/exp(2*Z)  -  exp(-Z  - 
Y.*Z)*S2A2.*Y.A2  +  l/(exp(2*Z)*ZA2)  +  l./(exp(2.*Y.*Z)*ZA2)  ... 

-  (2*exp(-Z  -  Y.*Z))/ZA2  +  (2*S2)/(exp(2*Z)*ZA2)  +  (2*S2)./(exp(2.*Y.*Z)*ZA2)  -  (4*exp(-Z  - 
Y.*Z)*S2)/ZA2  +  S2A2/(exp(2*Z)*ZA2)  +  S2A2./(exp(2.*Y.*Z)*ZA2)  ... 

-  (2*exp(-Z  -  Y.*Z)*S2A2)/ZA2  +  2/(exp(Z)*Z)  -  2./(exp(Y.*Z)*Z)  +  (2*S2)/(exp(Z)*Z)  - 
(2*S2)./(exp(Y.*Z)*Z)  -  (2.*Y)/(exp(Z)*Z)  +  (2.*Y)/(exp(Y.*Z)*Z)  ... 

-  (2*S2.*Y)/(exp(Z)*Z)  +  (2*S2.*Y)/(exp(Y.*Z)*Z)  -  Z/exp(Z)  -  (S2*Z)/exp(Z)  +  (Y.*Z)/exp(Z)  + 
(S2.*Y.*Z)/exp(Z)  +(Y.A2*Z)/exp(Z)  +  (S2.*Y A2*Z)/exp(Z)  -  (Y  A3*Z)/exp(Z) ... 

-  (S2.*Y.A3*Z)/exp(Z)  +  ZA2/(4*exp(2*Z))  +  (S2*ZA2)/(2*exp(2*Z))  +  (S2A2*ZA2)/(4*exp(2*Z))  - 
(Y.A2*ZA2)/(2*exp(2*Z))  -  (S2.*Y A2*ZA2)/exp(2*Z) ... 

-  (S2A2.*Y.A2*ZA2)/(2*exp(2*Z))  +  (Y.A4*ZA2)/(4*exp(2*Z))  +  (S2.*Y.A4*ZA2)/(2*exp(2*Z))  + 
(S2A2.*Y.A4*ZA2)/(4*exp(2*Z))  -  (7*S2*(S_v))/(2*exp(3*Z)) ... 

+  (2*S2*(S_v))/exp(2*Z)  +  (S2*(S_v))/exp(Z)  -  (exp(-Z  -  2.*Y.*Z)*S2*(S_v))/2  - 

(5*S2A2*(S_v))/exp(3*Z)  +  (2*S2A2*(S_v))/exp(2*Z)  -  (S2A2*(S_v))/(2*exp(Z)) ... 

-  (exp(-Z  -  2.*Y.*Z)*S2A2*(S_v))/2  -  (2*S2.*Y.*(S_v))/exp(2*Z)  -  (3*S2.*Y.*(S_v))/exp(Z)  + 
(3*S2A2.*Y.*(S_v))/(2*exp(3*Z))  -  (2*S2A2.*Y.*(S_v))/exp(2*Z) ... 

+  (S2A2.*Y.*(S_v))/(2*exp(Z))  +  (13*S2.*Y ,A2*(S_v))/(2*exp(3*Z))  -  (4*S2.*Y  A2*(S_v))/exp(2*Z)  + 
(3*S2.*Y.A2*(S_v))/exp(Z)  +  (exp(-Z  -  2,*Y.*Z)*S2.*Y  A2*(S_v))/2  ... 

+  (5*S2A2.*Y.A2*(S_v))/exp(3*Z)  -  (2*S2A2.*Y ,A2*(S_v))/exp(2*Z)  +  (S2A2.*Y  A2*(S_v))/(2*exp(Z)) 
+  (exp(-Z  -  2.*Y.*Z)*S2A2.*Y.A2*(S_v))/2  -  (3*S2.*Y  A3*(S_v))/exp(3*Z) ... 

+  (4*S2.*Y.A3*(S_v))/exp(2*Z)  -  (S2.*Y ,A3*(S_v))/exp(Z)  -  (3*S2A2.*Y ,A3*(S_v))/(2*exp(3*Z))  + 
(2*S2A2.*Y.A3*(S_v))/exp(2*Z)  -  (S2A2.*Y ,A3*(S_v))/(2*exp(Z))  ... 

+  (3*S2*(S_v))/(exp(4*Z)*ZA3)  -  (4*S2*(S_v))/(exp(3*Z)*ZA3)  +  (S2*(S_v))/(exp(2*Z)*ZA3)  + 
(S2*(S_v))./(exp(2.*Y.*Z)*ZA3)  +  (3*exp(-2*Z  -  2.*Y.*Z)*S2*(S_v))/ZA3  ... 

-  (4*exp(-Z  -  2.*Y.*Z)*S2*(S_v))/ZA3  -  (6*exp(-3*Z  -  Y.*Z)*S2*(S_v))/ZA3  +  (8*exp(-2*Z  - 
Y.*Z)*S2*(S_v))/ZA3  -  (2*exp(-Z  -  Y.*Z)*S2*(S_v))/ZA3  ... 

+  (3*S2A2*(S_v))/(exp(4*Z)*ZA3)  -  (4*S2A2*(S_v))/(exp(3*Z)*ZA3)  +  (S2A2*(S_v))/(exp(2*Z)*ZA3)  + 
(S2A2*(S_v))./(exp(2.*Y.*Z)*ZA3)  +  (3*exp(-2*Z  -  2.*Y.*Z)*S2A2*(S_v))/ZA3  ... 

-  (4*exp(-Z  -  2.*Y.*Z)*S2A2*(S_v))/ZA3  -  (6*exp(-3*Z  -  Y.*Z)*S2A2*(S_v))/ZA3  +  (8*exp(-2*Z  - 
Y.*Z)*S2A2*(S_v))/ZA3  -  (2*exp(-Z  -  Y.*Z)*S2A2*(S_v))/ZA3  ... 

+  (1  l*S2*(S_v))/(exp(3*Z)*ZA2)  -  (8*S2*(S_v))/(exp(2*Z)*ZA2)  +  (2*S2*(S_v))/(exp(Z)*ZA2)  - 
(S2*(S_v))./(exp(3.*Y.*Z)*ZA2)  -  (2*S2*(S_v))./(exp(Y.*Z)*ZA2) ... 

-  (exp(-Z  -  2.*Y.*Z)*S2*(S_v))/ZA2  -  (9*exp(-2*Z  -  Y.*Z)*S2*(S_v))/ZA2  +  (8*exp(-Z  - 
Y.*Z)*S2*(S_v))/ZA2  +  (8*S2A2*(S_v))/(exp(3*Z)*ZA2);  ... 

-  (4*S2A2*(S_v))/(exp(2*Z)*ZA2)  +  (S2A2*(S_v))/(exp(Z)*ZA2)  -  (S2A2*(S_v))./(exp(3.*Y.*Z)*ZA2)  - 
(S2A2*(S_v))./(exp(Y.*Z)*ZA2)  -  (exp(-Z  -  2,*Y.*Z)*S2A2*(S_v))/ZA2  ... 
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-  (6*exp(-2*Z  -  Y.*Z)*S2A2*(S_v))/ZA2  +  (4*exp(-Z  -  Y.*Z)*S2A2*(S_v))/ZA2  - 

(6*S2.*Y.*(S_v))/(exp(3*Z)*ZA2)  +  (8*S2.*Y.*(S_v))/(exp(2*Z)*ZA2)  ... 

-  (2*S2.*Y.*(S_v))/(exp(Z)*ZA2)  +  (2*S2.*Y.*(S_v))/(exp(Y.*Z)*ZA2)  +  (6*exp(-2*Z  - 

Y.*Z)*S2.*Y.*(S_v))/ZA2  -  (8*exp(-Z  -  Y.*Z)*S2.*Y.*(S_v))/ZA2  ... 

(3*S2A2.*Y.*(S_v))/(exp(3*Z)*ZA2)  +  (4*S2A2.*Y.*(S_v))/(exp(2*Z)*ZA2) 

(S2A2.*Y.*(S_v))/(exp(Z)*ZA2)  +  (S2A2.*Y.*(S_v))/(exp(Y.*Z)*ZA2) ... 

+  (3*exp(-2*Z  -  Y.*Z)*S2A2.*Y.*(S_v))/ZA2  -  (4*exp(-Z  -  Y.*Z)*S2A2.*Y.*(S_v))/ZA2  +  (S2*(S_v))/Z 
+  (2*S2*(S_v))/(exp(3*Z)*Z)  +  (9*S2*(S_v))/(exp(2*Z)*Z)... 

-  (4*S2*(S_v))/(exp(Z)*Z)  +  (S2*(S_v))./(exp(2.*Y.*Z)*Z)  -  (2*exp(-2*Z  -  Y.*Z)*S2*(S_v))/Z  + 
(exp(-Z  -  Y.*Z)*S2*(S_v))/Z  +  (2*S2A2*(S_v))/(exp(3*Z)*Z) ... 

+  (S2A2*(S_v))/(exp(2*Z)*Z)  -  (2*exp(-2*Z  -  Y.*Z)*S2A2*(S_v))/Z  -  (exp(-Z  -  Y.*Z)*S2A2*(S_v))/Z  - 
(2*S2.*Y.*(S_v))/Z  -  (13*S2.*Y.*(S_v))/(exp(2*Z)*Z) ... 

+  (8*S2.*Y.*(S_v))/(exp(Z)*Z)  -  (S2.*Y.*(S_v))./(exp(2.*Y.*Z)*Z) 

(2*S2A2.*Y.*(S_v))/(exp(2*Z)*Z)  +  (2*exp(-Z  -  Y.*Z)*S2A2.*Y.*(S_v))/Z  +  (S2.*Y  A2*(S_v))/Z  ... 

+  (3*S2.*Y.A2*(S_v))/(exp(4*Z)*Z)  -  (4*S2.*Y  A2*(S_v))/(exp(3*Z)*Z)  + 

(4*S2.*Y.A2*(S_v))/(exp(2*Z)*Z)  -  (4*S2.*Y  A2*(S_v))/(exp(Z)*Z) ... 

-  (3*exp(-3*Z  -  Y.*Z)*S2.*Y.A2*(S_v))/Z  +  (4*exp(-2*Z  -  Y.*Z)*S2.*Y  A2*(S_v))/Z  -  (exp(-Z  - 
Y.*Z)*S2.*Y.A2*(S_v))/Z  +  (3*S2A2.*Y.A2*(S_v))/(exp(4*Z)*Z) ... 

-  (4*S2A2.*Y.A2*(S_v))/(exp(3*Z)*Z)  +  (S2A2.*Y.A2*(S_v))/(exp(2*Z)*Z)  -  (3*exp(-3*Z  - 

Y.*Z)*S2A2.*Y.A2*(S_v))/Z  +  (4*exp(-2*Z  -  Y.*Z)*S2A2.*Y A2*(S_v))/Z  ... 

-  (exp(-Z  -  Y.*Z)*S2A2.*Y.A2*(S_v))/Z  -  (3*S2*Z*(S_v))/(4*exp(4*Z))  -  (7*S2*Z*(S_v))/(4*exp(2*Z)) 
-  (3*S2A2*Z*(S_v))/(4*exp(4*Z))  -  (3*S2A2*Z*(S_v))/(4*exp(2*Z)) ... 

+  (2*S2.*Y.*Z*(S_v))/exp(2*Z)  +  (S2A2.*Y.*Z*(S_v))/exp(2*Z)  +  (S2.*Y  A2*Z*(S_v))/exp(3*Z)  + 
(3*S2.*Y.A2*Z*(S_v))/(2*exp(2*Z))  +  (S2A2.*Y ,A2*Z*(S_v))/exp(3*Z)  ... 

+  (S2A2.*Y.A2*Z*(S_v))/(2*exp(2*Z))  -  (2*S2.*Y  A3*Z*(S_v))/exp(2*Z) 

(S2A2.*Y.A3*Z*(S_v))/exp(2*Z)  +  (3*S2.*Y.A4*Z*(S_v))/(4*exp(4*Z))  -  (S2.*Y ,A4*Z*(S_v))/exp(3*Z) 

+  (S2.*Y.A4*Z*(S_v))/(4*exp(2*Z))  +  (3*S2A2.*Y.A4*Z*(S_v))/(4*exp(4*Z)) 

(S2A2.*Y.A4*Z*(S_v))/exp(3*Z)  +  (S2A2.*Y  ,A4*Z*(S_v))/(4*exp(2*Z))  +  (S2*ZA2*(S_v))/(2*exp(3*Z)) 

+  (S2A2*ZA2*(S_v))/(2*exp(3*Z))  -  (S2.*Y.A2*ZA2*(S_v))/exp(3*Z) 

(S2A2.*Y.A2*ZA2*(S_v))/exp(3*Z)  +  (S2.*Y.A4*ZA2*(S_v))/(2*exp(3*Z))  ... 

+  (S2A2.*Y.A4*ZA2*(S_v))/(2*exp(3*Z))  +  (9*S2A2*(S_v)A2)/(16*exp(6*Z)) 

(23*S2A2*(S_v)A2)/(8*exp(4*Z))  +  (2*S2A2*(S_v)A2)/exp(3*Z)  +  (S2A2*(S_v)A2)/(16*exp(2*Z)) ... 

(exp(-2*Z  -  2,*Y.*Z)*S2A2*(S_v)A2)/2  -  exp(-3*Z  -  Y.*Z)*S2A2*(S_v)A2 

(2*S2A2.*Y.*(S_v)A2)/exp(3*Z)  -  (S2A2.*Y.*(S_v)A2)/exp(2*Z)  +  (9*S2A2.*Y  A2*(S_v)A2)/(8*exp(6*Z)) 

(3*S2A2.*Y.A2*(S_v)A2)/(2*exp(5*Z))  +  (1 1*S2A2.*Y  A2*(S_v)A2)/(2*exp(4*Z)) 

(7*S2A2.*Y.A2*(S_v)A2)/(2*exp(3*Z))  +  (15*S2A2.*Y ,A2*(S_v)A2)/(8*exp(2*Z)) ... 

+  (exp(-2*Z  -  2.*Y.*Z)*S2A2.*Y.A2*(S_v)A2)/2  +  exp(-3*Z  -  Y.*Z)*S2A2.*Y  ,A2*(S_v)A2  - 

(3*S2A2.*Y.A3*(S_v)A2)/exp(4*Z)  +  (4*S2A2.*Y  A3*(S_v)A2)/exp(3*Z) ... 

(S2A2.*Y.A3*(S_v)A2)/exp(2*Z)  +  (9*S2A2.*Y  ,A4*(S_v)A2)/(16*exp(6*Z)) 

(3*S2A2.*Y.A4*(S_v)A2)/(2*exp(5*Z))  +  (1  l*S2A2.*Y.A4*(S_v)A2)/(8*exp(4*Z)) ... 

(S2A2.*Y.A4*(S_v)A2)/(2*exp(3*Z))  +  (S2A2.*Y.A4*(S_v)A2)/(16*exp(2*Z))  + 

(9*S2A2*(S_v)A2)/(4*exp(6*Z)*ZA4)  -  (6*S2A2*(S_v)A2)/(exp(5*Z)*ZA4) ... 

+  (1  l*S2A2*(S_v)A2)/(2*exp(4*Z)*ZA4)  -  (2*S2A2*(S_v)A2)/(exp(3*Z)*ZA4)  + 

(S2A2*(S_v)A2)/(4*exp(2*Z)*ZA4)  +  (S2A2*(S_v)A2)./(4*exp(2.*Y.*Z)*ZA4)  ... 

+  (9*exp(-4*Z  -  2.*Y.*Z)*S2A2*(S_v)A2)/(4*ZA4)  -  (6*exp(-3*Z  -  2.*Y.*Z)*S2A2*(S_v)A2)/ZA4  + 
(ll*exp(-2*Z  -  2.*Y.*Z)*S2A2*(S_v)A2)/(2*ZA4)  ... 

-  (2*exp(-Z  -  2.*Y.*Z)*S2A2*(S_v)A2)/ZA4  -  (9*exp(-5*Z  -  Y.*Z)*S2A2*(S_v)A2)/(2*ZA4)  +  (12*exp(- 
4*Z  -  Y.*Z)*S2A2*(S_v)A2)/ZA4  -  (ll*exp(-3*Z  -  Y.*Z)*S2A2*(S_v)A2)/ZA4  ... 

+  (4*exp(-2*Z  -  Y.*Z)*S2A2*(S_v)A2)/ZA4  -  (exp(-Z  -  Y.*Z)*S2A2*(S_v)A2)/(2*ZA4)  + 

(12*S2A2*(S_v)A2)/(exp(5*Z)*ZA3)  -  (22*S2A2*(S_v)A2)/(exp(4*Z)*ZA3)  ... 

+  (27*S2A2*(S_v)A2)/(2*exp(3*Z)*ZA3)  -  (4*S2A2*(S_v)A2)/(exp(2*Z)*ZA3)  + 

(S2A2*(S_v)A2)/(2*exp(Z)*ZA3)  -  (S2A2*(S_v)A2)./(2*exp(3.*Y.*Z)*ZA3)  ... 
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-  (S2A2*(S_v)A2)./(2*exp(Y.*Z)*ZA3)  -  (3*exp(-2*Z  -  3.*Y.*Z)*S2A2*(S_v)A2)/(2*ZA3)  +  (2*exp(-Z  - 
3.*Y.*Z)*S2A2*(S_v)A2)/ZA3  -  (3*exp(-3*Z  -  2.*Y.*Z)*S2A2*(S_v)A2)/(2*ZA3)  ... 

+  (2*exp(-2*Z  -  2.*Y.*Z)*S2A2*(S_v)A2)/ZA3  -  (exp(-Z  -  2.*Y.*Z)*S2A2*(S_v)A2)/(2*ZA3)  -  (9*exp(- 
4*Z  -  Y.*Z)*S2A2*(S_v)A2)/ZA3  +  (18*exp(-3*Z  -  Y.*Z)*S2A2*(S_v)A2)/ZA3  ... 

-  (25*exp(-2*Z  -  Y.*Z)*S2A2*(S_v)A2)/(2*ZA3)  +  (4*exp(-Z  -  Y.*Z)*S2A2*(S_v)A2)/ZA3  - 
(9*S2A2.*Y.*(S_v)A2)/(2*exp(5*Z)*ZA3)  +  (12*S2A2.*Y.*(S_v)A2)/(exp(4*Z)*ZA3) ... 

(1  l*S2A2.*Y.*(S_v)A2)/(exp(3*Z)*ZA3)  +  (4*S2A2.*Y.*(S_v)A2)/(exp(2*Z)*ZA3) 

(S2A2.*Y.*(S_v)A2)/(2*exp(Z)*ZA3)  +  (S2A2.*Y.*(S_v)A2)/(2*exp(Y.*Z)*ZA3) ... 

+  (9*exp(-4*Z  -  Y.*Z)*S2A2.*Y.*(S_v)A2)/(2*ZA3)  -  (12*exp(-3*Z  -  Y.*Z)*S2A2.*Y.*(S_v)A2)/ZA3  + 
(ll*exp(-2*Z  -  Y.*Z)*S2A2.*Y.*(S_v)A2)/ZA3  ... 

(4*exp(-Z  -  Y.*Z)*S2A2.*Y.*(S_v)A2)/ZA3  +  (S2A2*(S_v)A2)/(4*ZA2)  + 

(9*S2A2*(S_v)A2)/(4*exp(6*Z)*ZA2)  -  (3*S2A2*(S_v)A2)/(exp(5*Z)*ZA2)  + 

(19*S2A2*(S_v)A2)/(exp(4*Z)*ZA2) ... 

(19*S2A2*(S_v)A2)/(exp(3*Z)*ZA2)  +  (35*S2A2*(S_v)A2)/(4*exp(2*Z)*ZA2) 

(2*S2A2*(S_v)A2)/(exp(Z)*ZA2)  +  (S2A2*(S_v)A2)./(4*exp(4.*Y.*Z)*ZA2) ... 

+  (S2A2*(S_v)A2)./(2*exp(2.*Y.*Z)*ZA2)  +  (exp(-Z  -  3.*Y.*Z)*S2A2*(S_v)A2)/ZA2  +  (5*exp(-2*Z  - 
2.*Y.*Z)*S2A2*(S_v)A2)/ZA2  -  (2*exp(-Z  -  2.*Y.*Z)*S2A2*(S_v)A2)/ZA2  ... 

-  (9*exp(-5*Z  -  Y.*Z)*S2A2*(S_v)A2)/(4*ZA2)  +  (3*exp(-4*Z  -  Y.*Z)*S2A2*(S_v)A2)/ZA2  +  (5*exp(- 
3*Z  -  Y.*Z)*S2A2*(S_v)A2)/ZA2  -  (exp(-2*Z  -  Y.*Z)*S2A2*(S_v)A2)/ZA2  ... 

+  (exp(-Z  -  Y.*Z)*S2A2*(S_v)A2)/(4*ZA2)  -  (S2A2.*Y.*(S_v)A2)/(2*ZA2) 

(15*S2A2.*Y.*(S_v)A2)/(exp(4*Z)*ZA2)  +  (26*S2A2.*Y.*(S_v)A2)/(exp(3*Z)*ZA2)  ... 

(29*S2A2.*Y.*(S_v)A2)/(2*exp(2*Z)*ZA2)  +  (4*S2A2.*Y.*(S_v)A2)/(exp(Z)*ZA2) 

(S2A2.*Y.*(S_v)A2)./(2*exp(2.*Y.*Z)*ZA2)  -  (3*exp(-2*Z  -  2.*Y.*Z)*S2A2.*Y.*(S_v)A2)/(2*ZA2) ... 

+  (2*exp(-Z  -  2.*Y.*Z)*S2A2.*Y.*(S_v)A2)/ZA2  +  (S2A2.*Y  ,A2*(S_v)A2)/(4*ZA2)  + 

(9*S2A2.*Y.A2*(S_v)A2)/(4*exp(6*Z)*ZA2)  -  (6*S2A2.*Y.A2*(S_v)A2)/(exp(5*Z)*ZA2)  ... 

+  (31*S2A2.*Y.A2*(S_v)A2)/(4*exp(4*Z)*ZA2)  -  (8*S2A2.*Y  ,A2*(S_v)A2)/(exp(3*Z)*ZA2)  + 

(23*S2A2.*Y.A2*(S_v)A2)/(4*exp(2*Z)*ZA2)  -  (2*S2A2.*Y ,A2*(S_v)A2)/(exp(Z)*ZA2) ... 

-  (9*exp(-5*Z  -  Y.*Z)*S2A2.*Y.A2*(S_v)A2)/(4*ZA2)  +  (6*exp(-4*Z  -  Y.*Z)*S2A2.*Y  A2*(S_v)A2)/ZA2 
-  (ll*exp(-3*Z  -  Y.*Z)*S2A2.*Y.A2*(S_v)A2)/(2*ZA2) ... 

+  (2*exp(-2*Z  -  Y.*Z)*S2A2.*Y.A2*(S_v)A2)/ZA2  -  (exp(-Z  -  Y.*Z)*S2A2.*Y.A2*(S_v)A2)/(4*ZA2)  + 
(9*S2A2*(S_v)A2)/(2*exp(5*Z)*Z)  -  (S2A2*(S_v)A2)/(exp(4*Z)*Z) ... 

+  (25*S2A2*(S_v)A2)/(4*exp(3*Z)*Z)  -  (3*S2A2*(S_v)A2)/(exp(2*Z)*Z)  + 

(3*S2A2*(S_v)A2)/(4*exp(Z)*Z)  +  (3*exp(-3*Z  -  2.*Y.*Z)*S2A2*(S_v)A2)/(4*Z) ... 

+  (3*exp(-Z  -  2,*Y.*Z)*S2A2*(S_v)A2)/(4*Z)  +  (3*exp(-4*Z  -  Y.*Z)*S2A2*(S_v)A2)/Z  -  (2*exp(-3*Z  - 
Y.*Z)*S2A2*(S_v)A2)/Z  +  (2*exp(-2*Z  -  Y.*Z)*S2A2*(S_v)A2)/Z  ... 

(9*S2A2.*Y.*(S_v)A2)/(4*exp(5*Z)*Z)  +  (3*S2A2.*Y.*(S_v)A2)/(exp(4*Z)*Z) 

(1  l*S2A2.*Y.*(S_v)A2)/(exp(3*Z)*Z)  +  (7*S2A2.*Y.*(S_v)A2)/(exp(2*Z)*Z) ... 

-  (7*S2A2.*Y.*(S_v)A2)/(4*exp(Z)*Z)  -  (exp(-Z  -  2,*Y.*Z)*S2A2.*Y.*(S_v)A2)/Z  -  (2*exp(-2*Z  - 
Y.*Z)*S2A2.*Y.*(S_v)A2)/Z  +  (15*S2A2.*Y ,A2*(S_v)A2)/(2*exp(5*Z)*Z)  ... 

(13*S2A2.*Y.A2*(S_v)A2)/(exp(4*Z)*Z)  +  (41*S2A2.*Y  ,A2*(S_v)A2)/(4*exp(3*Z)*Z) 

(6*S2A2.*Y.A2*(S_v)A2)/(exp(2*Z)*Z)  +  (5*S2A2.*Y ,A2*(S_v)A2)/(4*exp(Z)*Z) ... 

+  (3*exp(-3*Z  -  2.*Y.*Z)*S2A2.*Y.A2*(S_v)A2)/(4*Z)  -  (exp(-2*Z  -  2.*Y.*Z)*S2A2.*Y ,A2*(S_v)A2)/Z 
+  (exp(-Z  -  2.*Y.*Z)*S2A2.*Y.A2*(S_v)A2)/(4*Z) ... 

(9*S2A2.*Y.A3*(S_v)A2)/(4*exp(5*Z)*Z)  +  (6*S2A2.*Y  A3*(S_v)A2)/(exp(4*Z)*Z) 

(1  l*S2A2.*Y.A3*(S_v)A2)/(2*exp(3*Z)*Z)  +  (2*S2A2.*Y ,A3*(S_v)A2)/(exp(2*Z)*Z)  ... 

(S2A2.*Y.A3*(S_v)A2)/(4*exp(Z)*Z)  -  (3*S2A2*Z*(S_v)A2)/(4*exp(5*Z)) 

(3*S2A2*Z*(S_v)A2)/(4*exp(3*Z))  +  (S2A2.*Y.*Z*(S_v)A2)/exp(3*Z)  + 

(S2A2.*Y.A2*Z*(S_v)A2)/exp(4*Z) ... 

+  (S2A2.*Y.A2*Z*(S_v)A2)/(2*exp(3*Z))  -  (S2A2.*Y.A3*Z*(S_v)A2)/exp(3*Z)  + 

(3*S2A2.*Y.A4*Z*(S_v)A2)/(4*exp(5*Z))  -  (S2A2.*Y ,A4*Z*(S_v)A2)/exp(4*Z) ... 

+  (S2A2.*Y.A4*Z*(S_v)A2)/(4*exp(3*Z))  +  (S2A2*ZA2*(S_v)A2)/(4*exp(4*Z)) 

(S2A2.*Y.A2*ZA2*(S_v)A2)/(2*exp(4*Z))  +  (S2A2.*Y.A4*ZA2*(S_v)A2)/(4*exp(4*Z)); 

Ns2=Nf+Nc+Ny2; 

Phi2=Nf./[Nc+Ny2]; 

Be2=l./[1+Phi2]; 
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Gf2=Nf./Ns2; 

Gh2=[Nc+Ny2]./Ns2; 

Nh2=Nc+Ny2; 


S3=3; 

Ny3=l  -  exp(-2*Z)  +  exp(-Z  -  Y.*Z)  -  (2*S3)/exp(2*Z)  +  2*exp(-Z  -  Y.*Z)*S3  -  S3A2/exp(2*Z)  +  exp(-Z  - 
Y.*Z)*S3A2  -  2.*Y  +  Y.A2  +  Y.A2/exp(2*Z)  -  exp(-Z  -  Y.*Z).*Y.A2  ... 

+  (2*S3.*Y.A2)/exp(2*Z)  -  2*exp(-Z  -  Y.*Z)*S3.*Y.A2  +  (S3A2.*Y  A2)/exp(2*Z)  -  exp(-Z  - 
Y.*Z)*S3A2.*Y.A2  +  l/(exp(2*Z)*ZA2)  +  l./(exp(2.*Y.*Z)*ZA2)  ... 

-  (2*exp(-Z  -  Y.*Z))/ZA2  +  (2*S3)/(exp(2*Z)*ZA2)  +  (2*S3)./(exp(2.*Y.*Z)*ZA2)  -  (4*exp(-Z  - 
Y.*Z)*S3)/ZA2  +  S3A2/(exp(2*Z)*ZA2)  +  S3A2./(exp(2.*Y.*Z)*ZA2)  ... 

-  (2*exp(-Z  -  Y.*Z)*S3A2)/ZA2  +  2/(exp(Z)*Z)  -  2./(exp(Y.*Z)*Z)  +  (2*S3)/(exp(Z)*Z)  - 
(2*S3)./(exp(Y.*Z)*Z)  -  (2.*Y)/(exp(Z)*Z)  +  (2.*Y)/(exp(Y.*Z)*Z)  ... 

-  (2*S3.*Y)/(exp(Z)*Z)  +  (2*S3.*Y)/(exp(Y.*Z)*Z)  -  Z/exp(Z)  -  (S3*Z)/exp(Z)  +  (Y.*Z)/exp(Z)  + 
(S3.*Y.*Z)/exp(Z)  +(Y.A2*Z)/exp(Z)  +  (S3.*Y.A2*Z)/exp(Z)  -  (Y  A3*Z)/exp(Z) ... 

-  (S3.*Y ,A3*Z)/exp(Z)  +  ZA2/(4*exp(2*Z))  +  (S3*ZA2)/(2*exp(2*Z))  +  (S3A2*ZA2)/(4*exp(2*Z))  - 
(Y  A2*ZA2)/(2*exp(2*Z))  -  (S3.*Y  A2*ZA2)/exp(2*Z) ... 

-  (S3A2.*Y.A2*ZA2)/(2*exp(2*Z))  +  (Y.A4*ZA2)/(4*exp(2*Z))  +  (S3.*Y.A4*ZA2)/(2*exp(2*Z))  + 
(S3A2.*Y.A4*ZA2)/(4*exp(2*Z))  -  (7*S3*(S_v))/(2*exp(3*Z)) ... 

+  (2*S3*(S_v))/exp(2*Z)  +  (S3*(S_v))/exp(Z)  -  (exp(-Z  -  2.*Y.*Z)*S3*(S_v))/2  - 

(5*S3A2*(S_v))/exp(3*Z)  +  (2*S3A2*(S_v))/exp(2*Z)  -  (S3A2*(S_v))/(2*exp(Z)) ... 

-  (exp(-Z  -  2.*Y.*Z)*S3A2*(S_v))/2  -  (2*S3.*Y.*(S_v))/exp(2*Z)  -  (3*S3.*Y.*(S_v))/exp(Z)  + 
(3*S3A2.*Y.*(S_v))/(2*exp(3*Z))  -  (2*S3A2.*Y.*(S_v))/exp(2*Z) ... 

+  (S3A2.*Y.*(S_v))/(2*exp(Z))  +  (13*S3.*Y.A2*(S_v))/(2*exp(3*Z))  -  (4*S3.*Y.A2*(S_v))/exp(2*Z)  + 
(3*S3.*Y.A2*(S_v))/exp(Z)  +  (exp(-Z  -  2,*Y.*Z)*S3.*Y.A2*(S_v))/2  ... 

+  (5*S3A2.*Y.A2*(S_v))/exp(3*Z)  -  (2*S3A2.*Y.A2*(S_v))/exp(2*Z)  +  (S3A2.*Y  A2*(S_v))/(2*exp(Z)) 
+  (exp(-Z  -  2.*Y.*Z)*S3A2.*Y.A2*(S_v))/2  -  (3*S3.*Y.A3*(S_v))/exp(3*Z) ... 

+  (4*S3.*Y.A3*(S_v))/exp(2*Z)  -  (S3.*Y.A3*(S_v))/exp(Z)  -  (3*S3A2.*Y.A3*(S_v))/(2*exp(3*Z))  + 
(2*S3A2.*Y.A3*(S_v))/exp(2*Z)  -  (S3A2.*Y.A3*(S_v))/(2*exp(Z)) ... 

+  (3*S3*(S_v))/(exp(4*Z)*ZA3)  -  (4*S3*(S_v))/(exp(3*Z)*ZA3)  +  (S3*(S_v))/(exp(2*Z)*ZA3)  + 
(S3*(S_v))./(exp(2.*Y.*Z)*ZA3)  +  (3*exp(-2*Z  -  2.*Y.*Z)*S3*(S_v))/ZA3  ... 

-  (4*exp(-Z  -  2.*Y.*Z)*S3*(S_v))/ZA3  -  (6*exp(-3*Z  -  Y.*Z)*S3*(S_v))/ZA3  +  (8*exp(-2*Z  - 
Y.*Z)*S3*(S_v))/ZA3  -  (2*exp(-Z  -  Y.*Z)*S3*(S_v))/ZA3  ... 

+  (3*S3A2*(S_v))/(exp(4*Z)*ZA3)  -  (4*S3A2*(S_v))/(exp(3*Z)*ZA3)  +  (S3A2*(S_v))/(exp(2*Z)*ZA3)  + 
(S3A2*(S_v))./(exp(2.*Y.*Z)*ZA3)  +  (3*exp(-2*Z  -  2.*Y.*Z)*S3A2*(S_v))/ZA3  ... 

-  (4*exp(-Z  -  2.*Y.*Z)*S3A2*(S_v))/ZA3  -  (6*exp(-3*Z  -  Y.*Z)*S3A2*(S_v))/ZA3  +  (8*exp(-2*Z  - 
Y.*Z)*S3A2*(S_v))/ZA3  -  (2*exp(-Z  -  Y.*Z)*S3A2*(S_v))/ZA3  ... 

+  (1  l*S3*(S_v))/(exp(3*Z)*ZA2)  -  (8*S3*(S_v))/(exp(2*Z)*ZA2)  +  (2*S3*(S_v))/(exp(Z)*ZA2)  - 
(S3*(S_v))./(exp(3.*Y.*Z)*ZA2)  -  (2*S3*(S_v))./(exp(Y.*Z)*ZA2) ... 

-  (exp(-Z  -  2.*Y.*Z)*S3*(S_v))/ZA2  -  (9*exp(-2*Z  -  Y.*Z)*S3*(S_v))/ZA2  +  (8*exp(-Z  - 
Y.*Z)*S3*(S_v))/ZA2  +  (8*S3A2*(S_v))/(exp(3*Z)*ZA2); ... 

-  (4*S3A2*(S_v))/(exp(2*Z)*ZA2)  +  (S3A2*(S_v))/(exp(Z)*ZA2)  -  (S3A2*(S_v))./(exp(3.*Y.*Z)*ZA2)  - 
(S3A2*(S_v))./(exp(Y.*Z)*ZA2)  -  (exp(-Z  -  2,*Y.*Z)*S3A2*(S_v))/ZA2  ... 

-  (6*exp(-2*Z  -  Y.*Z)*S3A2*(S_v))/ZA2  +  (4*exp(-Z  -  Y.*Z)*S3A2*(S_v))/ZA2  - 

(6*S3.*Y.*(S_v))/(exp(3*Z)*ZA2)  +  (8*S3.*Y.*(S_v))/(exp(2*Z)*ZA2) ... 

-  (2*S3.*Y.*(S_v))/(exp(Z)*ZA2)  +  (2*S3.*Y.*(S_v))/(exp(Y.*Z)*ZA2)  +  (6*exp(-2*Z  - 

Y.*Z)*S3.*Y.*(S_v))/ZA2  -  (8*exp(-Z  -  Y.*Z)*S3.*Y.*(S_v))/ZA2  ... 

(3*S3A2.*Y.*(S_v))/(exp(3*Z)*ZA2)  +  (4*S3A2.*Y.*(S_v))/(exp(2*Z)*ZA2) 

(S3A2.*Y.*(S_v))/(exp(Z)*ZA2)  +  (S3A2.*Y.*(S_v))/(exp(Y.*Z)*ZA2) ... 

+  (3*exp(-2*Z  -  Y.*Z)*S3A2.*Y.*(S_v))/ZA2  -  (4*exp(-Z  -  Y.*Z)*S3A2.*Y.*(S_v))/ZA2  +  (S3*(S_v))/Z 
+  (2*S3*(S_v))/(exp(3*Z)*Z)  +  (9*S3*(S_v))/(exp(2*Z)*Z)... 

-  (4*S3*(S_v))/(exp(Z)*Z)  +  (S3*(S_v))./(exp(2.*Y.*Z)*Z)  -  (2*exp(-2*Z  -  Y.*Z)*S3*(S_v))/Z  + 
(exp(-Z  -  Y.*Z)*S3*(S_v))/Z  +  (2*S3A2*(S_v))/(exp(3*Z)*Z) ... 

+  (S3A2*(S_v))/(exp(2*Z)*Z)  -  (2*exp(-2*Z  -  Y.*Z)*S3A2*(S_v))/Z  -  (exp(-Z  -  Y.*Z)*S3A2*(S_v))/Z  - 
(2*S3.*Y.*(S_v))/Z  -  (13*S3.*Y.*(S_v))/(exp(2*Z)*Z) ... 
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+  (8*S3.*Y.*(S_v))/(exp(Z)*Z)  -  (S3.*Y.*(S_v))./(exp(2.*Y.*Z)*Z) 

(2*S3A2.*Y.*(S_v))/(exp(2*Z)*Z)  +  (2*exp(-Z  -  Y.*Z)*S3A2.*Y.*(S_v))/Z  +  (S3.*Y  A2*(S_v))/Z  ... 

+  (3*S3.*Y.A2*(S_v))/(exp(4*Z)*Z)  -  (4*S3.*Y  A2*(S_v))/(exp(3*Z)*Z)  + 

(4*S3.*Y.A2*(S_v))/(exp(2*Z)*Z)  -  (4*S3.*Y A2*(S_v))/(exp(Z)*Z) ... 

-  (3*exp(-3*Z  -  Y.*Z)*S3.*Y.A2*(S_v))/Z  +  (4*exp(-2*Z  -  Y.*Z)*S3.*Y A2*(S_v))/Z  -  (exp(-Z  - 
Y.*Z)*S3.*Y.A2*(S_v))/Z  +  (3*S3A2.*Y.A2*(S_v))/(exp(4*Z)*Z) ... 

-  (4*S3A2.*Y.A2*(S_v))/(exp(3*Z)*Z)  +  (S3A2.*Y  A2*(S_v))/(exp(2*Z)*Z)  -  (3*exp(-3*Z  - 

Y.*Z)*S3A2.*Y.A2*(S_v))/Z  +  (4*exp(-2*Z  -  Y.*Z)*S3A2.*Y A2*(S_v))/Z  ... 

-  (exp(-Z  -  Y.*Z)*S3A2.*Y.A2*(S_v))/Z  -  (3*S3*Z*(S_v))/(4*exp(4*Z))  -  (7*S3*Z*(S_v))/(4*exp(2*Z)) 
-  (3*S3A2*Z*(S_v))/(4*exp(4*Z))  -  (3*S3A2*Z*(S_v))/(4*exp(2*Z)) ... 

+  (2*S3.*Y.*Z*(S_v))/exp(2*Z)  +  (S3A2.*Y.*Z*(S_v))/exp(2*Z)  +  (S3.*Y.A2*Z*(S_v))/exp(3*Z)  + 
(3*S3.*Y.A2*Z*(S_v))/(2*exp(2*Z))  +  (S3A2.*Y  A2*Z*(S_v))/exp(3*Z) ... 

+  (S3A2.*Y.A2*Z*(S_v))/(2*exp(2*Z))  -  (2*S3.*Y  A3*Z*(S_v))/exp(2*Z) 

(S3A2.*Y.A3*Z*(S_v))/exp(2*Z)  +  (3*S3.*Y.A4*Z*(S_v))/(4*exp(4*Z))  -  (S3.*Y A4*Z*(S_v))/exp(3*Z) 

+  (S3.*Y.A4*Z*(S_v))/(4*exp(2*Z))  +  (3*S3A2.*Y.A4*Z*(S_v))/(4*exp(4*Z)) 

(S3A2.*Y.A4*Z*(S_v))/exp(3*Z)  +  (S3A2.*Y  A4*Z*(S_v))/(4*exp(2*Z))  +  (S3*ZA2*(S_v))/(2*exp(3*Z)) 

+  (S3A2*ZA2*(S_v))/(2*exp(3*Z))  -  (S3.*Y  A2*ZA2*(S_v))/exp(3*Z) 

(S3A2.*Y.A2*ZA2*(S_v))/exp(3*Z)  +  (S3.*Y.A4*ZA2*(S_v))/(2*exp(3*Z))  ... 

+  (S3A2.*Y.A4*ZA2*(S_v))/(2*exp(3*Z))  +  (9*S3A2*(S_v)A2)/(16*exp(6*Z)) 

(23*S3A2*(S_v)A2)/(8*exp(4*Z))  +  (2*S3A2*(S_v)A2)/exp(3*Z)  +  (S3A2*(S_v)A2)/(16*exp(2*Z)) ... 

(exp(-2*Z  -  2,*Y.*Z)*S3A2*(S_v)A2)/2  -  exp(-3*Z  -  Y.*Z)*S3A2*(S_v)A2 

(2*S3A2.*Y.*(S_v)A2)/exp(3*Z)  -  (S3A2.*Y.*(S_v)A2)/exp(2*Z)  +  (9*S3A2.*Y ,A2*(S_v)A2)/(8*exp(6*Z)) 

(3*S3A2.*Y.A2*(S_v)A2)/(2*exp(5*Z))  +  (1 1*S3A2.*Y  A2*(S_v)A2)/(2*exp(4*Z)) 

(7*S3A2.*Y  A2*(S_v)A2)/(2*exp(3*Z))  +  (15*S3A2.*Y  A2*(S_v)A2)/(8*exp(2*Z)) ... 

+  (exp(-2*Z  -  2.*Y.*Z)*S3A2.*Y.A2*(S_v)A2)/2  +  exp(-3*Z  -  Y.*Z)*S3A2.*Y  A2*(S_v)A2  - 

(3*S3A2.*Y ,A3*(S_v)A2)/exp(4*Z)  +  (4*S3A2.*Y  A3*(S_v)A2)/exp(3*Z) ... 

(S3A2.*Y.A3*(S_v)A2)/exp(2*Z)  +  (9*S3A2.*Y  A4*(S_v)A2)/(16*exp(6*Z)) 

(3*S3A2.*Y.A4*(S_v)A2)/(2*exp(5*Z))  +  (1  l*S3A2.*Y.A4*(S_v)A2)/(8*exp(4*Z)) ... 

(S3A2.*Y.A4*(S_v)A2)/(2*exp(3*Z))  +  (S3A2.*Y.A4*(S_v)A2)/(16*exp(2*Z))  + 

(9*S3A2*(S_v)A2)/(4*exp(6*Z)*ZA4)  -  (6*S3A2*(S_v)A2)/(exp(5*Z)*ZA4) ... 

+  (1  l*S3A2*(S_v)A2)/(2*exp(4*Z)*ZA4)  -  (2*S3A2*(S_v)A2)/(exp(3*Z)*ZA4)  + 

(S3A2*(S_v)A2)/(4*exp(2*Z)*ZA4)  +  (S3A2*(S_v)A2)./(4*exp(2.*Y.*Z)*ZA4)  ... 

+  (9*exp(-4*Z  -  2.*Y.*Z)*S3A2*(S_v)A2)/(4*ZA4)  -  (6*exp(-3*Z  -  2.*Y.*Z)*S3A2*(S_v)A2)/ZA4  + 
(ll*exp(-2*Z  -  2.*Y.*Z)*S3A2*(S_v)A2)/(2*ZA4)  ... 

-  (2*exp(-Z  -  2.*Y.*Z)*S3A2*(S_v)A2)/ZA4  -  (9*exp(-5*Z  -  Y.*Z)*S3A2*(S_v)A2)/(2*ZA4)  +  (12*exp(- 
4*Z  -  Y.*Z)*S3A2*(S_v)A2)/ZA4  -  (ll*exp(-3*Z  -  Y.*Z)*S3A2*(S_v)A2)/ZA4  ... 

+  (4*exp(-2*Z  -  Y.*Z)*S3A2*(S_v)A2)/ZA4  -  (exp(-Z  -  Y.*Z)*S3A2*(S_v)A2)/(2*ZA4)  + 
(12*S3A2*(S_v)A2)/(exp(5*Z)*ZA3)  -  (22*S3A2*(S_v)A2)/(exp(4*Z)*ZA3) ... 

+  (27*S3A2*(S_v)A2)/(2*exp(3*Z)*ZA3)  -  (4*S3A2*(S_v)A2)/(exp(2*Z)*ZA3)  + 

(S3A2*(S_v)A2)/(2*exp(Z)*ZA3)  -  (S3A2*(S_v)A2)./(2*exp(3.*Y.*Z)*ZA3) ... 

-  (S3A2*(S_v)A2)./(2*exp(Y.*Z)*ZA3)  -  (3*exp(-2*Z  -  3.*Y.*Z)*S3A2*(S_v)A2)/(2*ZA3)  +  (2*exp(-Z  - 
3.*Y.*Z)*S3A2*(S_v)A2)/ZA3  -  (3*exp(-3*Z  -  2.*Y.*Z)*S3A2*(S_v)A2)/(2*ZA3) ... 

+  (2*exp(-2*Z  -  2.*Y.*Z)*S3A2*(S_v)A2)/ZA3  -  (exp(-Z  -  2.*Y.*Z)*S3A2*(S_v)A2)/(2*ZA3)  -  (9*exp(- 
4*Z  -  Y.*Z)*S3A2*(S_v)A2)/ZA3  +  (18*exp(-3*Z  -  Y.*Z)*S3A2*(S_v)A2)/ZA3  ... 

-  (25*exp(-2*Z  -  Y.*Z)*S3A2*(S_v)A2)/(2*ZA3)  +  (4*exp(-Z  -  Y.*Z)*S3A2*(S_v)A2)/ZA3  - 
(9*S3A2.*Y.*(S_v)A2)/(2*exp(5*Z)*ZA3)  +  (12*S3A2.*Y.*(S_v)A2)/(exp(4*Z)*ZA3) ... 

(ll*S3A2.*Y.*(S_v)A2)/(exp(3*Z)*ZA3)  +  (4*S3A2.*Y.*(S_v)A2)/(exp(2*Z)*ZA3) 

(S3A2.*Y.*(S_v)A2)/(2*exp(Z)*ZA3)  +  (S3A2.*Y.*(S_v)A2)/(2*exp(Y.*Z)*ZA3) ... 

+  (9*exp(-4*Z  -  Y.*Z)*S3A2.*Y.*(S_v)A2)/(2*ZA3)  -  (12*exp(-3*Z  -  Y.*Z)*S3A2.*Y.*(S_v)A2)/ZA3  + 
(ll*exp(-2*Z  -  Y.*Z)*S3A2.*Y.*(S_v)A2)/ZA3  ... 

(4*exp(-Z  -  Y.*Z)*S3A2.*Y.*(S_v)A2)/ZA3  +  (S3A2*(S_v)A2)/(4*ZA2)  + 

(9*S3A2*(S_v)A2)/(4*exp(6*Z)*ZA2)  -  (3*S3A2*(S_v)A2)/(exp(5*Z)*ZA2)  + 

(19*S3A2*(S_v)A2)/(exp(4*Z)*ZA2) ... 
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(19*S3A2*(S_v)A2)/(exp(3*Z)*ZA2)  +  (35*S3A2*(S_v)A2)/(4*exp(2*Z)*ZA2) 

(2*S3A2*(S_v)A2)/(exp(Z)*ZA2)  +  (S3A2*(S_v)A2)./(4*exp(4.*Y.*Z)*ZA2) ... 

+  (S3A2*(S_v)A2)./(2*exp(2.*Y.*Z)*ZA2)  +  (exp(-Z  -  3.*Y.*Z)*S3A2*(S_v)A2)/ZA2  +  (5*exp(-2*Z  - 
2,*Y.*Z)*S3A2*(S_v)A2)/ZA2  -  (2*exp(-Z  -  2.*Y.*Z)*S3A2*(S_v)A2)/ZA2  ... 

-  (9*exp(-5*Z  -  Y.*Z)*S3A2*(S_v)A2)/(4*ZA2)  +  (3*exp(-4*Z  -  Y.*Z)*S3A2*(S_v)A2)/ZA2  +  (5*exp(- 
3*Z  -  Y.*Z)*S3A2*(S_v)A2)/ZA2  -  (exp(-2*Z  -  Y.*Z)*S3A2*(S_v)A2)/ZA2  ... 

+  (exp(-Z  -  Y.*Z)*S3A2*(S_v)A2)/(4*ZA2)  -  (S3A2.*Y.*(S_v)A2)/(2*ZA2) 

(15*S3A2.*Y.*(S_v)A2)/(exp(4*Z)*ZA2)  +  (26*S3A2.*Y.*(S_v)A2)/(exp(3*Z)*ZA2)  ... 

(29*S3A2.*Y.*(S_v)A2)/(2*exp(2*Z)*ZA2)  +  (4*S3A2.*Y.*(S_v)A2)/(exp(Z)*ZA2) 

(S3A2.*Y.*(S_v)A2)./(2*exp(2.*Y.*Z)*ZA2)  -  (3*exp(-2*Z  -  2.*Y.*Z)*S3A2.*Y.*(S_v)A2)/(2*ZA2) ... 

+  (2*exp(-Z  -  2.*Y.*Z)*S3A2.*Y.*(S_v)A2)/ZA2  +  (S3A2.*Y  A2*(S_v)A2)/(4*ZA2)  + 

(9*S3A2.*Y ,A2*(S_v)A2)/(4*exp(6*Z)*ZA2)  -  (6*S3A2.*Y.A2*(S_v)A2)/(exp(5*Z)*ZA2)  ... 

+  (31*S3A2.*Y.A2*(S_v)A2)/(4*exp(4*Z)*ZA2)  -  (8*S3A2.*Y  A2*(S_v)A2)/(exp(3*Z)*ZA2)  + 

(23*S3A2.*Y  A2*(S_v)A2)/(4*exp(2*Z)*ZA2)  -  (2*S3A2.*Y ,A2*(S_v)A2)/(exp(Z)*ZA2) ... 

-  (9*exp(-5*Z  -  Y.*Z)*S3A2.*Y.A2*(S_v)A2)/(4*ZA2)  +  (6*exp(-4*Z  -  Y.*Z)*S3A2.*Y ,A2*(S_v)A2)/ZA2 
-  (ll*exp(-3*Z  -  Y.*Z)*S3A2.*Y.A2*(S_v)A2)/(2*ZA2) ... 

+  (2*exp(-2*Z  -  Y.*Z)*S3A2.*Y.A2*(S_v)A2)/ZA2  -  (exp(-Z  -  Y.*Z)*S3A2.*Y.A2*(S_v)A2)/(4*ZA2)  + 
(9*S3A2*(S_v)A2)/(2*exp(5*Z)*Z)  -  (S3A2*(S_v)A2)/(exp(4*Z)*Z) ... 

+  (25*S3A2*(S_v)A2)/(4*exp(3*Z)*Z)  -  (3*S3A2*(S_v)A2)/(exp(2*Z)*Z)  + 

(3*S3A2*(S_v)A2)/(4*exp(Z)*Z)  +  (3*exp(-3*Z  -  2.*Y.*Z)*S3A2*(S_v)A2)/(4*Z) ... 

+  (3*exp(-Z  -  2,*Y.*Z)*S3A2*(S_v)A2)/(4*Z)  +  (3*exp(-4*Z  -  Y.*Z)*S3A2*(S_v)A2)/Z  -  (2*exp(-3*Z  - 
Y.*Z)*S3A2*(S_v)A2)/Z  +  (2*exp(-2*Z  -  Y.*Z)*S3A2*(S_v)A2)/Z  ... 

(9*S3A2.*Y.*(S_v)A2)/(4*exp(5*Z)*Z)  +  (3*S3A2.*Y.*(S_v)A2)/(exp(4*Z)*Z) 

(ll*S3A2.*Y.*(S_v)A2)/(exp(3*Z)*Z)  +  (7*S3A2.*Y.*(S_v)A2)/(exp(2*Z)*Z) ... 

-  (7*S3A2.*Y.*(S_v)A2)/(4*exp(Z)*Z)  -  (exp(-Z  -  2.*Y.*Z)*S3A2.*Y.*(S_v)A2)/Z  -  (2*exp(-2*Z  - 
Y.*Z)*S3A2.*Y.*(S_v)A2)/Z  +  (15*S3A2.*Y ,A2*(S_v)A2)/(2*exp(5*Z)*Z)  ... 

(13*S3A2.*Y.A2*(S_v)A2)/(exp(4*Z)*Z)  +  (41*S3A2.*Y  ,A2*(S_v)A2)/(4*exp(3*Z)*Z) 

(6*S3A2.*Y.A2*(S_v)A2)/(exp(2*Z)*Z)  +  (5*S3A2.*Y ,A2*(S_v)A2)/(4*exp(Z)*Z) ... 

+  (3*exp(-3*Z  -  2.*Y.*Z)*S3A2.*Y.A2*(S_v)A2)/(4*Z)  -  (exp(-2*Z  -  2.*Y.*Z)*S3A2.*Y  A2*(S_v)A2)/Z 
+  (exp(-Z  -  2.*Y.*Z)*S3A2.*Y.A2*(S_v)A2)/(4*Z) ... 

(9*S3A2.*Y  A3*(S_v)A2)/(4*exp(5*Z)*Z)  +  (6*S3A2.*Y  ,A3*(S_v)A2)/(exp(4*Z)*Z) 

(1  l*S3A2.*Y.A3*(S_v)A2)/(2*exp(3*Z)*Z)  +  (2*S3A2.*Y ,A3*(S_v)A2)/(exp(2*Z)*Z)  ... 

(S3A2.*Y  A3*(S_v)A2)/(4*exp(Z)*Z)  -  (3*S3A2*Z*(S_v)A2)/(4*exp(5*Z)) 

(3*S3A2*Z*(S_v)A2)/(4*exp(3*Z))  +  (S3A2.*Y.*Z*(S_v)A2)/exp(3*Z)  + 

(S3A2.*Y.A2*Z*(S_v)A2)/exp(4*Z) ... 

+  (S3A2.*Y.A2*Z*(S_v)A2)/(2*exp(3*Z))  -  (S3A2.*Y  A3*Z*(S_v)A2)/exp(3*Z)  + 

(3*S3A2.*Y.A4*Z*(S_v)A2)/(4*exp(5*Z))  -  (S3A2.*Y ,A4*Z*(S_v)A2)/exp(4*Z) ... 

+  (S3A2.*Y.A4*Z*(S_v)A2)/(4*exp(3*Z))  +  (S3A2*ZA2*(S_v)A2)/(4*exp(4*Z)) 

(S3A2.*Y.A2*ZA2*(S_v)A2)/(2*exp(4*Z))  +  (S3A2.*Y.A4*ZA2*(S_v)A2)/(4*exp(4*Z)); 


Ns3=Nf+Nc+Ny3; 

Phi3=Nf./[Nc+Ny3]; 

Be3=l./[1+Phi3]; 

GG=Nf./Ns3; 

Gh3=[Nc+Ny3]./Ns3; 

Nh3=Nc+Ny3; 


S4=4; 

Ny4=l  -  exp(-2*Z)  +  exp(-Z  -  Y.*Z)  -  (2*S4)/exp(2*Z)  +  2*exp(-Z  -  Y.*Z)*S4  -  S4A2/exp(2*Z)  +  exp(-Z  - 
Y.*Z)*S4A2  -  2.*Y  +  Y.A2  +  Y.A2/exp(2*Z)  -  exp(-Z  -  Y.*Z).*Y.A2  ... 

+  (2*S4.*Y.A2)/exp(2*Z)  -  2*exp(-Z  -  Y.*Z)*S4.*Y ,A2  +  (S4A2.*Y.A2)/exp(2*Z)  -  exp(-Z  - 
Y.*Z)*S4A2.*Y.A2  +  l/(exp(2*Z)*ZA2)  +  l./(exp(2.*Y.*Z)*ZA2)  ... 

-  (2*exp(-Z  -  Y.*Z))/ZA2  +  (2*S4)/(exp(2*Z)*ZA2)  +  (2*S4)./(exp(2.*Y.*Z)*ZA2)  -  (4*exp(-Z  - 
Y.*Z)*S4)/ZA2  +  S4A2/(exp(2*Z)*ZA2)  +  S4A2./(exp(2.*Y.*Z)*ZA2)  ... 
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-  (2*exp(-Z  -  Y.*Z)*S4A2)/ZA2  +  2/(exp(Z)*Z)  -  2./(exp(Y.*Z)*Z)  +  (2*S4)/(exp(Z)*Z)  - 
(2*S4)./(exp(Y.*Z)*Z)  -  (2.*Y)/(exp(Z)*Z)  +  (2.*Y)/(exp(Y.*Z)*Z)  ... 

-  (2*S4.*Y)/(exp(Z)*Z)  +  (2*S4.*Y)/(exp(Y.*Z)*Z)  -  Z/exp(Z)  -  (S4*Z)/exp(Z)  +  (Y.*Z)/exp(Z)  + 
(S4.*Y.*Z)/exp(Z)  +(Y.A2*Z)/exp(Z)  +  (S4.*Y A2*Z)/exp(Z)  -  (Y.A3*Z)/exp(Z) ... 

-  (S4.*Y.A3*Z)/exp(Z)  +  ZA2/(4*exp(2*Z))  +  (S4*ZA2)/(2*exp(2*Z))  +  (S4A2*ZA2)/(4*exp(2*Z))  - 
(Y  A2*ZA2)/(2*exp(2*Z))  -  (S4.*Y A2*ZA2)/exp(2*Z) ... 

-  (S4A2.*Y.A2*ZA2)/(2*exp(2*Z))  +  (Y.A4*ZA2)/(4*exp(2*Z))  +  (S4.*Y.A4*ZA2)/(2*exp(2*Z))  + 
(S4A2.*Y.A4*ZA2)/(4*exp(2*Z))  -  (7*S4*(S_v))/(2*exp(3*Z)) ... 

+  (2*S4*(S_v))/exp(2*Z)  +  (S4*(S_v))/exp(Z)  -  (exp(-Z  -  2.*Y.*Z)*S4*(S_v))/2  - 

(5*S4A2*(S_v))/exp(3*Z)  +  (2*S4A2*(S_v))/exp(2*Z)  -  (S4A2*(S_v))/(2*exp(Z)) ... 

-  (exp(-Z  -  2.*Y.*Z)*S4A2*(S_v))/2  -  (2*S4.*Y.*(S_v))/exp(2*Z)  -  (3*S4.*Y.*(S_v))/exp(Z)  + 
(3*S4A2.*Y.*(S_v))/(2*exp(3*Z))  -  (2*S4A2.*Y.*(S_v))/exp(2*Z) ... 

+  (S4A2.*Y.*(S_v))/(2*exp(Z))  +  (13*S4.*Y  A2*(S_v))/(2*exp(3*Z))  -  (4*S4.*Y  A2*(S_v))/exp(2*Z)  + 
(3*S4.*Y.A2*(S_v))/exp(Z)  +  (exp(-Z  -  2.*Y.*Z)*S4.*Y.A2*(S_v))/2  ... 

+  (5*S4A2.*Y.A2*(S_v))/exp(3*Z)  -  (2*S4A2.*Y.A2*(S_v))/exp(2*Z)  +  (S4A2.*Y.A2*(S_v))/(2*exp(Z)) 
+  (exp(-Z  -  2.*Y.*Z)*S4A2.*Y.A2*(S_v))/2  -  (3*S4.*Y  A3*(S_v))/exp(3*Z) ... 

+  (4*S4.*Y.A3*(S_v))/exp(2*Z)  -  (S4.*Y  A3*(S_v))/exp(Z)  -  (3*S4A2.*Y A3*(S_v))/(2*exp(3*Z))  + 
(2*S4A2.*Y.A3*(S_v))/exp(2*Z)  -  (S4A2.*Y A3*(S_v))/(2*exp(Z))  ... 

+  (3*S4*(S_v))/(exp(4*Z)*ZA3)  -  (4*S4*(S_v))/(exp(3*Z)*ZA3)  +  (S4*(S_v))/(exp(2*Z)*ZA3)  + 
(S4*(S_v))./(exp(2.*Y.*Z)*ZA3)  +  (3*exp(-2*Z  -  2.*Y.*Z)*S4*(S_v))/ZA3  ... 

-  (4*exp(-Z  -  2.*Y.*Z)*S4*(S_v))/ZA3  -  (6*exp(-3*Z  -  Y.*Z)*S4*(S_v))/ZA3  +  (8*exp(-2*Z  - 
Y.*Z)*S4*(S_v))/ZA3  -  (2*exp(-Z  -  Y.*Z)*S4*(S_v))/ZA3  ... 

+  (3*S4A2*(S_v))/(exp(4*Z)*ZA3)  -  (4*S4A2*(S_v))/(exp(3*Z)*ZA3)  +  (S4A2*(S_v))/(exp(2*Z)*ZA3)  + 
(S4A2*(S_v))./(exp(2.*Y.*Z)*ZA3)  +  (3*exp(-2*Z  -  2.*Y.*Z)*S4A2*(S_v))/ZA3  ... 

-  (4*exp(-Z  -  2.*Y.*Z)*S4A2*(S_v))/ZA3  -  (6*exp(-3*Z  -  Y.*Z)*S4A2*(S_v))/ZA3  +  (8*exp(-2*Z  - 
Y.*Z)*S4A2*(S_v))/ZA3  -  (2*exp(-Z  -  Y.*Z)*S4A2*(S_v))/ZA3  ... 

+  (1  l*S4*(S_v))/(exp(3*Z)*ZA2)  -  (8*S4*(S_v))/(exp(2*Z)*ZA2)  +  (2*S4*(S_v))/(exp(Z)*ZA2)  - 
(S4*(S_v))./(exp(3.*Y.*Z)*ZA2)  -  (2*S4*(S_v))./(exp(Y.*Z)*ZA2) ... 

-  (exp(-Z  -  2.*Y.*Z)*S4*(S_v))/ZA2  -  (9*exp(-2*Z  -  Y.*Z)*S4*(S_v))/ZA2  +  (8*exp(-Z  - 
Y.*Z)*S4*(S_v))/ZA2  +  (8*S4A2*(S_v))/(exp(3*Z)*ZA2);  ... 

-  (4*S4A2*(S_v))/(exp(2*Z)*ZA2)  +  (S4A2*(S_v))/(exp(Z)*ZA2)  -  (S4A2*(S_v))./(exp(3.*Y.*Z)*ZA2)  - 
(S4A2*(S_v))./(exp(Y.*Z)*ZA2)  -  (exp(-Z  -  2,*Y.*Z)*S4A2*(S_v))/ZA2  ... 

-  (6*exp(-2*Z  -  Y.*Z)*S4A2*(S_v))/ZA2  +  (4*exp(-Z  -  Y.*Z)*S4A2*(S_v))/ZA2  - 

(6*S4.*Y.*(S_v))/(exp(3*Z)*ZA2)  +  (8*S4.*Y.*(S_v))/(exp(2*Z)*ZA2)  ... 

-  (2*S4.*Y.*(S_v))/(exp(Z)*ZA2)  +  (2*S4.*Y.*(S_v))/(exp(Y.*Z)*ZA2)  +  (6*exp(-2*Z  - 

Y.*Z)*S4.*Y.*(S_v))/ZA2  -  (8*exp(-Z  -  Y.*Z)*S4.*Y.*(S_v))/ZA2  ... 

(3*S4A2.*Y.*(S_v))/(exp(3*Z)*ZA2)  +  (4*S4A2.*Y.*(S_v))/(exp(2*Z)*ZA2) 

(S4A2.*Y.*(S_v))/(exp(Z)*ZA2)  +  (S4A2.*Y.*(S_v))/(exp(Y.*Z)*ZA2) ... 

+  (3*exp(-2*Z  -  Y.*Z)*S4A2.*Y.*(S_v))/ZA2  -  (4*exp(-Z  -  Y.*Z)*S4A2.*Y.*(S_v))/ZA2  +  (S4*(S_v))/Z 
+  (2*S4*(S_v))/(exp(3*Z)*Z)  +  (9*S4*(S_v))/(exp(2*Z)*Z)... 

-  (4*S4*(S_v))/(exp(Z)*Z)  +  (S4*(S_v))./(exp(2.*Y.*Z)*Z)  -  (2*exp(-2*Z  -  Y.*Z)*S4*(S_v))/Z  + 
(exp(-Z  -  Y.*Z)*S4*(S_v))/Z  +  (2*S4A2*(S_v))/(exp(3*Z)*Z) ... 

+  (S4A2*(S_v))/(exp(2*Z)*Z)  -  (2*exp(-2*Z  -  Y.*Z)*S4A2*(S_v))/Z  -  (exp(-Z  -  Y.*Z)*S4A2*(S_v))/Z  - 
(2*S4.*Y.*(S_v))/Z  -  (13*S4.*Y.*(S_v))/(exp(2*Z)*Z) ... 

+  (8*S4.*Y.*(S_v))/(exp(Z)*Z)  -  (S4.*Y.*(S_v))./(exp(2.*Y.*Z)*Z) 

(2*S4A2.*Y.*(S_v))/(exp(2*Z)*Z)  +  (2*exp(-Z  -  Y.*Z)*S4A2.*Y.*(S_v))/Z  +  (S4.*Y ,A2*(S_v))/Z  ... 

+  (3*S4.*Y.A2*(S_v))/(exp(4*Z)*Z)  -  (4*S4.*Y  A2*(S_v))/(exp(3*Z)*Z)  + 

(4*S4.*Y.A2*(S_v))/(exp(2*Z)*Z)  -  (4*S4.*Y ,A2*(S_v))/(exp(Z)*Z) ... 

-  (3*exp(-3*Z  -  Y.*Z)*S4.*Y.A2*(S_v))/Z  +  (4*exp(-2*Z  -  Y.*Z)*S4.*Y  A2*(S_v))/Z  -  (exp(-Z  - 
Y.*Z)*S4.*Y.A2*(S_v))/Z  +  (3*S4A2.*Y.A2*(S_v))/(exp(4*Z)*Z) ... 

-  (4*S4A2.*Y.A2*(S_v))/(exp(3*Z)*Z)  +  (S4A2.*Y  ,A2*(S_v))/(exp(2*Z)*Z)  -  (3*exp(-3*Z  - 

Y.*Z)*S4A2.*Y.A2*(S_v))/Z  +  (4*exp(-2*Z  -  Y.*Z)*S4A2.*Y  A2*(S_v))/Z  ... 

-  (exp(-Z  -  Y.*Z)*S4A2.*Y.A2*(S_v))/Z  -  (3*S4*Z*(S_v))/(4*exp(4*Z))  -  (7*S4*Z*(S_v))/(4*exp(2*Z)) 
-  (3*S4A2*Z*(S_v))/(4*exp(4*Z))  -  (3*S4A2*Z*(S_v))/(4*exp(2*Z)) ... 

+  (2*S4.*Y.*Z*(S_v))/exp(2*Z)  +  (S4A2.*Y.*Z*(S_v))/exp(2*Z)  +  (S4.*Y.A2*Z*(S_v))/exp(3*Z)  + 
(3*S4.*Y.A2*Z*(S_v))/(2*exp(2*Z))  +  (S4A2.*Y  A2*Z*(S_v))/exp(3*Z)  ... 
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+  (S4A2.*Y.A2*Z*(S_v))/(2*exp(2*Z))  -  (2*S4.*Y.A3*Z*(S_v))/exp(2*Z) 

(S4A2.*Y.A3*Z*(S_v))/exp(2*Z)  +  (3*S4.*Y.A4*Z*(S_v))/(4*exp(4*Z))  -  (S4.*Y  A4*Z*(S_v))/exp(3*Z) 

+  (S4.*Y.A4*Z*(S_v))/(4*exp(2*Z))  +  (3*S4A2.*Y.A4*Z*(S_v))/(4*exp(4*Z)) 

(S4A2.*Y.A4*Z*(S_v))/exp(3*Z)  +  (S4A2.*Y.A4*Z*(S_v))/(4*exp(2*Z))  +  (S4*ZA2*(S_v))/(2*exp(3*Z)) 

+  (S4A2*ZA2*(S_v))/(2*exp(3*Z))  -  (S4.*Y.A2*ZA2*(S_v))/exp(3*Z) 

(S4A2.*Y.A2*ZA2*(S_v))/exp(3*Z)  +  (S4.*Y.A4*ZA2*(S_v))/(2*exp(3*Z))  ... 

+  (S4A2.*Y.A4*ZA2*(S_v))/(2*exp(3*Z))  +  (9*S4A2*(S_v)A2)/(16*exp(6*Z)) 

(23*S4A2*(S_v)A2)/(8*exp(4*Z))  +  (2*S4A2*(S_v)A2)/exp(3*Z)  +  (S4A2*(S_v)A2)/(16*exp(2*Z)) ... 

(exp(-2*Z  -  2,*Y.*Z)*S4A2*(S_v)A2)/2  -  exp(-3*Z  -  Y.*Z)*S4A2*(S_v)A2 

(2*S4A2.*Y.*(S_v)A2)/exp(3*Z)  -  (S4A2.*Y.*(S_v)A2)/exp(2*Z)  +  (9*S4A2.*Y.A2*(S_v)A2)/(8*exp(6*Z)) 

(3*S4A2.*Y.A2*(S_v)A2)/(2*exp(5*Z))  +  (1  l*S4A2.*Y.A2*(S_v)A2)/(2*exp(4*Z)) 

(7*S4A2.*Y.A2*(S_v)A2)/(2*exp(3*Z))  +  (15*S4A2.*Y.A2*(S_v)A2)/(8*exp(2*Z)) ... 

+  (exp(-2*Z  -  2.*Y.*Z)*S4A2.*Y.A2*(S_v)A2)/2  +  exp(-3*Z  -  Y.*Z)*S4A2.*Y.A2*(S_v)A2  - 

(3 *S4A2. * Y.A3 *(S_v)A2)/exp(4*Z)  +  (4*S4A2.*Y  A3*(S_v)A2)/exp(3*Z) ... 

(S4A2.*Y.A3*(S_v)A2)/exp(2*Z)  +  (9*S4A2.*Y.A4*(S_v)A2)/(16*exp(6*Z)) 

(3*S4A2.*Y.A4*(S_v)A2)/(2*exp(5*Z))  +  (1  l*S4A2.*Y.A4*(S_v)A2)/(8*exp(4*Z)) ... 

(S4A2.*Y.A4*(S_v)A2)/(2*exp(3*Z))  +  (S4A2.*Y.A4*(S_v)A2)/(16*exp(2*Z))  + 

(9*S4A2*(S_v)A2)/(4*exp(6*Z)*ZA4)  -  (6*S4A2*(S_v)A2)/(exp(5*Z)*ZA4) ... 

+  (1  l*S4A2*(S_v)A2)/(2*exp(4*Z)*ZA4)  -  (2*S4A2*(S_v)A2)/(exp(3*Z)*ZA4)  + 

(S4A2*(S_v)A2)/(4*exp(2*Z)*ZA4)  +  (S4A2*(S_v)A2)./(4*exp(2.*Y.*Z)*ZA4)  ... 

+  (9*exp(-4*Z  -  2.*Y.*Z)*S4A2*(S_v)A2)/(4*ZA4)  -  (6*exp(-3*Z  -  2.*Y.*Z)*S4A2*(S_v)A2)/ZA4  + 
(ll*exp(-2*Z  -  2.*Y.*Z)*S4A2*(S_v)A2)/(2*ZA4)  ... 

-  (2*exp(-Z  -  2.*Y.*Z)*S4A2*(S_v)A2)/ZA4  -  (9*exp(-5*Z  -  Y.*Z)*S4A2*(S_v)A2)/(2*ZA4)  +  (12*exp(- 
4*Z  -  Y.*Z)*S4A2*(S_v)A2)/ZA4  -  (ll*exp(-3*Z  -  Y.*Z)*S4A2*(S_v)A2)/ZA4  ... 

+  (4*exp(-2*Z  -  Y.*Z)*S4A2*(S_v)A2)/ZA4  -  (exp(-Z  -  Y.*Z)*S4A2*(S_v)A2)/(2*ZA4)  + 
(12*S4A2*(S_v)A2)/(exp(5*Z)*ZA3)  -  (22*S4A2*(S_v)A2)/(exp(4*Z)*ZA3)  ... 

+  (27*S4A2*(S_v)A2)/(2*exp(3*Z)*ZA3)  -  (4*S4A2*(S_v)A2)/(exp(2*Z)*ZA3)  + 

(S4A2*(S_v)A2)/(2*exp(Z)*ZA3)  -  (S4A2*(S_v)A2)./(2*exp(3.*Y.*Z)*ZA3)  ... 

-  (S4A2*(S_v)A2)./(2*exp(Y.*Z)*ZA3)  -  (3*exp(-2*Z  -  3.*Y.*Z)*S4A2*(S_v)A2)/(2*ZA3)  +  (2*exp(-Z  - 
3.*Y.*Z)*S4A2*(S_v)A2)/ZA3  -  (3*exp(-3*Z  -  2.*Y.*Z)*S4A2*(S_v)A2)/(2*ZA3)  ... 

+  (2*exp(-2*Z  -  2.*Y.*Z)*S4A2*(S_v)A2)/ZA3  -  (exp(-Z  -  2.*Y.*Z)*S4A2*(S_v)A2)/(2*ZA3)  -  (9*exp(- 
4*Z  -  Y.*Z)*S4A2*(S_v)A2)/ZA3  +  (18*exp(-3*Z  -  Y.*Z)*S4A2*(S_v)A2)/ZA3  ... 

-  (25*exp(-2*Z  -  Y.*Z)*S4A2*(S_v)A2)/(2*ZA3)  +  (4*exp(-Z  -  Y.*Z)*S4A2*(S_v)A2)/ZA3  - 
(9*S4A2.*Y.*(S_v)A2)/(2*exp(5*Z)*ZA3)  +  (12*S4A2.*Y.*(S_v)A2)/(exp(4*Z)*ZA3) ... 

(1  l*S4A2.*Y.*(S_v)A2)/(exp(3*Z)*ZA3)  +  (4*S4A2.*Y.*(S_v)A2)/(exp(2*Z)*ZA3) 

(S4A2.*Y.*(S_v)A2)/(2*exp(Z)*ZA3)  +  (S4A2.*Y.*(S_v)A2)/(2*exp(Y.*Z)*ZA3) ... 

+  (9*exp(-4*Z  -  Y.*Z)*S4A2.*Y.*(S_v)A2)/(2*ZA3)  -  (12*exp(-3*Z  -  Y.*Z)*S4A2.*Y.*(S_v)A2)/ZA3  + 
(ll*exp(-2*Z  -  Y.*Z)*S4A2.*Y.*(S_v)A2)/ZA3  ... 

(4*exp(-Z  -  Y.*Z)*S4A2.*Y.*(S_v)A2)/ZA3  +  (S4A2*(S_v)A2)/(4*ZA2)  + 

(9*S4A2*(S_v)A2)/(4*exp(6*Z)*ZA2)  -  (3*S4A2*(S_v)A2)/(exp(5*Z)*ZA2)  + 

(19*S4A2*(S_v)A2)/(exp(4*Z)*ZA2) ... 

(19*S4A2*(S_v)A2)/(exp(3*Z)*ZA2)  +  (35*S4A2*(S_v)A2)/(4*exp(2*Z)*ZA2) 

(2*S4A2*(S_v)A2)/(exp(Z)*ZA2)  +  (S4A2*(S_v)A2)./(4*exp(4.*Y.*Z)*ZA2) ... 

+  (S4A2*(S_v)A2)./(2*exp(2.*Y.*Z)*ZA2)  +  (exp(-Z  -  3.*Y.*Z)*S4A2*(S_v)A2)/ZA2  +  (5*exp(-2*Z  - 
2,*Y.*Z)*S4A2*(S_v)A2)/ZA2  -  (2*exp(-Z  -  2.*Y.*Z)*S4A2*(S_v)A2)/ZA2  ... 

-  (9*exp(-5*Z  -  Y.*Z)*S4A2*(S_v)A2)/(4*ZA2)  +  (3*exp(-4*Z  -  Y.*Z)*S4A2*(S_v)A2)/ZA2  +  (5*exp(- 
3*Z  -  Y.*Z)*S4A2*(S_v)A2)/ZA2  -  (exp(-2*Z  -  Y.*Z)*S4A2*(S_v)A2)/ZA2  ... 

+  (exp(-Z  -  Y.*Z)*S4A2*(S_v)A2)/(4*ZA2)  -  (S4A2.*Y.*(S_v)A2)/(2*ZA2) 

(15*S4A2.*Y.*(S_v)A2)/(exp(4*Z)*ZA2)  +  (26*S4A2.*Y.*(S_v)A2)/(exp(3*Z)*ZA2)  ... 

(29*S4A2.*Y.*(S_v)A2)/(2*exp(2*Z)*ZA2)  +  (4*S4A2.*Y.*(S_v)A2)/(exp(Z)*ZA2) 

(S4A2.*Y.*(S_v)A2)./(2*exp(2.*Y.*Z)*ZA2)  -  (3*exp(-2*Z  -  2,*Y.*Z)*S4A2.*Y.*(S_v)A2)/(2*ZA2) ... 

+  (2*exp(-Z  -  2.*Y.*Z)*S4A2.*Y.*(S_v)A2)/ZA2  +  (S4A2.*Y.A2*(S_v)A2)/(4*ZA2)  + 

(9*S4A2.*Y.A2*(S_v)A2)/(4*exp(6*Z)*ZA2)  -  (6*S4A2.*Y.A2*(S_v)A2)/(exp(5*Z)*ZA2)  ... 
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+  (3  l*S4A2.*Y.A2*(S_v)A2)/(4*exp(4*Z)*ZA2)  -  (8*S4A2.*Y  A2*(S_v)A2)/(exp(3*Z)*ZA2)  + 

(23*S4A2.*Y.A2*(S_v)A2)/(4*exp(2*Z)*ZA2)  -  (2*S4A2.*Y.A2*(S_v)A2)/(exp(Z)*ZA2) ... 

-  (9*exp(-5*Z  -  Y.*Z)*S4A2.*Y.A2*(S_v)A2)/(4*ZA2)  +  (6*exp(-4*Z  -  Y.*Z)*S4A2.*Y  A2*(S_v)A2)/ZA2 
-  (ll*exp(-3*Z  -  Y.*Z)*S4A2.*Y.A2*(S_v)A2)/(2*ZA2) ... 

+  (2*exp(-2*Z  -  Y.*Z)*S4A2.*Y.A2*(S_v)A2)/ZA2  -  (exp(-Z  -  Y.*Z)*S4A2.*Y.A2*(S_v)A2)/(4*ZA2)  + 
(9*S4A2*(S_v)A2)/(2*exp(5*Z)*Z)  -  (S4A2*(S_v)A2)/(exp(4*Z)*Z) ... 

+  (25*S4A2*(S_v)A2)/(4*exp(3*Z)*Z)  -  (3*S4A2*(S_v)A2)/(exp(2*Z)*Z)  + 

(3*S4A2*(S_v)A2)/(4*exp(Z)*Z)  +  (3*exp(-3*Z  -  2.*Y.*Z)*S4A2*(S_v)A2)/(4*Z) ... 

+  (3*exp(-Z  -  2,*Y.*Z)*S4A2*(S_v)A2)/(4*Z)  +  (3*exp(-4*Z  -  Y.*Z)*S4A2*(S_v)A2)/Z  -  (2*exp(-3*Z  - 
Y.*Z)*S4A2*(S_v)A2)/Z  +  (2*exp(-2*Z  -  Y.*Z)*S4A2*(S_v)A2)/Z  ... 

(9*S4A2.*Y.*(S_v)A2)/(4*exp(5*Z)*Z)  +  (3*S4A2.*Y.*(S_v)A2)/(exp(4*Z)*Z) 

(1  l*S4A2.*Y.*(S_v)A2)/(exp(3*Z)*Z)  +  (7*S4A2.*Y.*(S_v)A2)/(exp(2*Z)*Z) ... 

-  (7*S4A2.*Y.*(S_v)A2)/(4*exp(Z)*Z)  -  (exp(-Z  -  2.*Y.*Z)*S4A2.*Y.*(S_v)A2)/Z  -  (2*exp(-2*Z  - 
Y.*Z)*S4A2.*Y.*(S_v)A2)/Z  +  (15*S4A2.*Y  A2*(S_v)A2)/(2*exp(5*Z)*Z)  ... 

(13*S4A2.*Y.A2*(S_v)A2)/(exp(4*Z)*Z)  +  (41*S4A2.*Y.A2*(S_v)A2)/(4*exp(3*Z)*Z) 

(6*S4A2.*Y.A2*(S_v)A2)/(exp(2*Z)*Z)  +  (5*S4A2.*Y.A2*(S_v)A2)/(4*exp(Z)*Z) ... 

+  (3*exp(-3*Z  -  2.*Y.*Z)*S4A2.*Y.A2*(S_v)A2)/(4*Z)  -  (exp(-2*Z  -  2.*Y.*Z)*S4A2.*Y.A2*(S_v)A2)/Z 
+  (exp(-Z  -  2.*Y.*Z)*S4A2.*Y.A2*(S_v)A2)/(4*Z) ... 

(9*S4A2.*Y.A3*(S_v)A2)/(4*exp(5*Z)*Z)  +  (6*S4A2.*Y  A3*(S_v)A2)/(exp(4*Z)*Z) 

(1  l*S4A2.*Y.A3*(S_v)A2)/(2*exp(3*Z)*Z)  +  (2*S4A2.*Y.A3*(S_v)A2)/(exp(2*Z)*Z)  ... 

(S4A2.*Y.A3*(S_v)A2)/(4*exp(Z)*Z)  -  (3*S4A2*Z*(S_v)A2)/(4*exp(5*Z)) 

(3*S4A2*Z*(S_v)A2)/(4*exp(3*Z))  +  (S4A2.*Y.*Z*(S_v)A2)/exp(3*Z)  + 

(S4A2.*Y.A2*Z*(S_v)A2)/exp(4*Z) ... 

+  (S4A2.*Y.A2*Z*(S_v)A2)/(2*exp(3*Z))  -  (S4A2.*Y.A3*Z*(S_v)A2)/exp(3*Z)  + 

(3*S4A2.*Y.A4*Z*(S_v)A2)/(4*exp(5*Z))  -  (S4A2.*Y.A4*Z*(S_v)A2)/exp(4*Z) ... 

+  (S4A2.*Y.A4*Z*(S_v)A2)/(4*exp(3*Z))  +  (S4A2*ZA2*(S_v)A2)/(4*exp(4*Z)) 

(S4A2.*Y.A2*ZA2*(S_v)A2)/(2*exp(4*Z))  +  (S4A2.*Y.A4*ZA2*(S_v)A2)/(4*exp(4*Z)); 


Ns4=Nf+Nc+Ny4; 
Phi4=Nf./[Nc+Ny4] ; 
Be4= 1 ./[  1  +Phi4] ; 
Gf4=Nf./Ns4; 
Gh4=[Nc+Ny4]./Ns4; 
Nh4=Nc+Ny4; 


S5=5; 

Ny5=l  -  exp(-2*Z)  +  exp(-Z  -  Y.*Z)  -  (2*S5)/exp(2*Z)  +  2*exp(-Z  -  Y.*Z)*S5  -  S5A2/exp(2*Z)  +  exp(-Z  - 
Y.*Z)*S5A2  -  2.*Y  +  Y.A2  +  Y  A2/exp(2*Z)  -  exp(-Z  -  Y.*Z).*Y ,A2  ... 

+  (2*S5.*Y.A2)/exp(2*Z)  -  2*exp(-Z  -  Y.*Z)*S5.*Y ,A2  +  (S5A2.*Y.A2)/exp(2*Z)  -  exp(-Z  - 
Y.*Z)*S5A2.*Y.A2  +  l/(exp(2*Z)*ZA2)  +  l./(exp(2.*Y.*Z)*ZA2)  ... 

-  (2*exp(-Z  -  Y.*Z))/ZA2  +  (2*S5)/(exp(2*Z)*ZA2)  +  (2*S5)./(exp(2.*Y.*Z)*ZA2)  -  (4*exp(-Z  - 
Y.*Z)*S5)/ZA2  +  S5A2/(exp(2*Z)*ZA2)  +  S5A2./(exp(2.*Y.*Z)*ZA2)  ... 

-  (2*exp(-Z  -  Y.*Z)*S5A2)/ZA2  +  2/(exp(Z)*Z)  -  2,/(exp(Y.*Z)*Z)  +  (2*S5)/(exp(Z)*Z)  - 
(2*S5)./(exp(Y.*Z)*Z)  -  (2.*Y)/(exp(Z)*Z)  +  (2.*Y)/(exp(Y.*Z)*Z)  ... 

-  (2*S5.*Y)/(exp(Z)*Z)  +  (2*S5.*Y)/(exp(Y.*Z)*Z)  -  Z/exp(Z)  -  (S5*Z)/exp(Z)  +  (Y.*Z)/exp(Z)  + 
(S5.*Y.*Z)/exp(Z)  +(Y.A2*Z)/exp(Z)  +  (S5.*Y ,A2*Z)/exp(Z)  -  (Y  A3*Z)/exp(Z) ... 

-  (S5.*Y.A3*Z)/exp(Z)  +  ZA2/(4*exp(2*Z))  +  (S5*ZA2)/(2*exp(2*Z))  +  (S5A2*ZA2)/(4*exp(2*Z))  - 
(Y ,A2*ZA2)/(2*exp(2*Z))  -  (S5.*Y  A2*ZA2)/exp(2*Z) ... 

-  (S5A2.*Y.A2*ZA2)/(2*exp(2*Z))  +  (Y.A4*ZA2)/(4*exp(2*Z))  +  (S5.*Y.A4*ZA2)/(2*exp(2*Z))  + 
(S5A2.*Y.A4*ZA2)/(4*exp(2*Z))  -  (7*S5*(S_v))/(2*exp(3*Z)) ... 

+  (2*S5*(S_v))/exp(2*Z)  +  (S5*(S_v))/exp(Z)  -  (exp(-Z  -  2.*Y.*Z)*S5*(S_v))/2  - 

(5*S5A2*(S_v))/exp(3*Z)  +  (2*S5A2*(S_v))/exp(2*Z)  -  (S5A2*(S_v))/(2*exp(Z)) ... 

-  (exp(-Z  -  2.*Y.*Z)*S5A2*(S_v))/2  -  (2*S5.*Y.*(S_v))/exp(2*Z)  -  (3*S5.*Y.*(S_v))/exp(Z)  + 
(3*S5A2.*Y.*(S_v))/(2*exp(3*Z))  -  (2*S5A2.*Y.*(S_v))/exp(2*Z) ... 
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+  (S5A2.*Y.*(S_v))/(2*exp(Z))  +  (13*S5.*Y.A2*(S_v))/(2*exp(3*Z))  -  (4*S5.*Y  A2*(S_v))/exp(2*Z)  + 
(3*S5.*Y.A2*(S_v))/exp(Z)  +  (exp(-Z  -  2.*Y.*Z)*S5.*Y.A2*(S_v))/2  ... 

+  (5*S5A2.*Y.A2*(S_v))/exp(3*Z)  -  (2*S5A2.*Y.A2*(S_v))/exp(2*Z)  +  (S5A2.*Y  A2*(S_v))/(2*exp(Z)) 
+  (exp(-Z  -  2.*Y.*Z)*S5A2.*Y.A2*(S_v))/2  -  (3*S5.*Y.A3*(S_v))/exp(3*Z) ... 

+  (4*S5.*Y.A3*(S_v))/exp(2*Z)  -  (S5.*Y.A3*(S_v))/exp(Z)  -  (3*S5A2.*Y.A3*(S_v))/(2*exp(3*Z))  + 
(2*S5A2.*Y.A3*(S_v))/exp(2*Z)  -  (S5A2.*Y.A3*(S_v))/(2*exp(Z)) ... 

+  (3*S5*(S_v))/(exp(4*Z)*ZA3)  -  (4*S5*(S_v))/(exp(3*Z)*ZA3)  +  (S5*(S_v))/(exp(2*Z)*ZA3)  + 
(S5*(S_v))./(exp(2.*Y.*Z)*ZA3)  +  (3*exp(-2*Z  -  2.*Y.*Z)*S5*(S_v))/ZA3  ... 

-  (4*exp(-Z  -  2.*Y.*Z)*S5*(S_v))/ZA3  -  (6*exp(-3*Z  -  Y.*Z)*S5*(S_v))/ZA3  +  (8*exp(-2*Z  - 
Y.*Z)*S5*(S_v))/ZA3  -  (2*exp(-Z  -  Y.*Z)*S5*(S_v))/ZA3  ... 

+  (3*S5A2*(S_v))/(exp(4*Z)*ZA3)  -  (4*S5A2*(S_v))/(exp(3*Z)*ZA3)  +  (S5A2*(S_v))/(exp(2*Z)*ZA3)  + 
(S5A2*(S_v))./(exp(2.*Y.*Z)*ZA3)  +  (3*exp(-2*Z  -  2.*Y.*Z)*S5A2*(S_v))/ZA3  ... 

-  (4*exp(-Z  -  2.*Y.*Z)*S5A2*(S_v))/ZA3  -  (6*exp(-3*Z  -  Y.*Z)*S5A2*(S_v))/ZA3  +  (8*exp(-2*Z  - 
Y.*Z)*S5A2*(S_v))/ZA3  -  (2*exp(-Z  -  Y.*Z)*S5A2*(S_v))/ZA3  ... 

+  (1  l*S5*(S_v))/(exp(3*Z)*ZA2)  -  (8*S5*(S_v))/(exp(2*Z)*ZA2)  +  (2*S5*(S_v))/(exp(Z)*ZA2)  - 
(S5*(S_v))./(exp(3.*Y.*Z)*ZA2)  -  (2*S5*(S_v))./(exp(Y.*Z)*ZA2) ... 

-  (exp(-Z  -  2.*Y.*Z)*S5*(S_v))/ZA2  -  (9*exp(-2*Z  -  Y.*Z)*S5*(S_v))/ZA2  +  (8*exp(-Z  - 
Y.*Z)*S5*(S_v))/ZA2  +  (8*S5A2*(S_v))/(exp(3*Z)*ZA2); ... 

-  (4*S5A2*(S_v))/(exp(2*Z)*ZA2)  +  (S5A2*(S_v))/(exp(Z)*ZA2)  -  (S5A2*(S_v))./(exp(3.*Y.*Z)*ZA2)  - 
(S5A2*(S_v))./(exp(Y.*Z)*ZA2)  -  (exp(-Z  -  2.*Y.*Z)*S5A2*(S_v))/ZA2  ... 

-  (6*exp(-2*Z  -  Y.*Z)*S5A2*(S_v))/ZA2  +  (4*exp(-Z  -  Y.*Z)*S5A2*(S_v))/ZA2  - 

(6*S5.*Y.*(S_v))/(exp(3*Z)*ZA2)  +  (8*S5.*Y.*(S_v))/(exp(2*Z)*ZA2) ... 

-  (2*S5.*Y.*(S_v))/(exp(Z)*ZA2)  +  (2*S5.*Y.*(S_v))/(exp(Y.*Z)*ZA2)  +  (6*exp(-2*Z  - 

Y.*Z)*S5.*Y.*(S_v))/ZA2  -  (8*exp(-Z  -  Y.*Z)*S5.*Y.*(S_v))/ZA2  ... 

(3*S5A2.*Y.*(S_v))/(exp(3*Z)*ZA2)  +  (4*S5A2.*Y.*(S_v))/(exp(2*Z)*ZA2) 

(S5A2.*Y.*(S_v))/(exp(Z)*ZA2)  +  (S5A2.*Y.*(S_v))/(exp(Y.*Z)*ZA2) ... 

+  (3*exp(-2*Z  -  Y.*Z)*S5A2.*Y.*(S_v))/ZA2  -  (4*exp(-Z  -  Y.*Z)*S5A2.*Y.*(S_v))/ZA2  +  (S5*(S_v))/Z 
+  (2*S5*(S_v))/(exp(3*Z)*Z)  +  (9*S5*(S_v))/(exp(2*Z)*Z)... 

-  (4*S5*(S_v))/(exp(Z)*Z)  +  (S5*(S_v))./(exp(2.*Y.*Z)*Z)  -  (2*exp(-2*Z  -  Y.*Z)*S5*(S_v))/Z  + 
(exp(-Z  -  Y.*Z)*S5*(S_v))/Z  +  (2*S5A2*(S_v))/(exp(3*Z)*Z) ... 

+  (S5A2*(S_v))/(exp(2*Z)*Z)  -  (2*exp(-2*Z  -  Y.*Z)*S5A2*(S_v))/Z  -  (exp(-Z  -  Y.*Z)*S5A2*(S_v))/Z  - 
(2*S5.*Y.*(S_v))/Z  -  (13*S5.*Y.*(S_v))/(exp(2*Z)*Z) ... 

+  (8*S5.*Y.*(S_v))/(exp(Z)*Z)  -  (S5.*Y.*(S_v))./(exp(2.*Y.*Z)*Z) 

(2*S5A2.*Y.*(S_v))/(exp(2*Z)*Z)  +  (2*exp(-Z  -  Y.*Z)*S5A2.*Y.*(S_v))/Z  +  (S5.*Y.A2*(S_v))/Z  ... 

+  (3*S5.*Y.A2*(S_v))/(exp(4*Z)*Z)  -  (4*S5.*Y.A2*(S_v))/(exp(3*Z)*Z)  + 

(4*S5.*Y.A2*(S_v))/(exp(2*Z)*Z)  -  (4*S5.*Y.A2*(S_v))/(exp(Z)*Z) ... 

-  (3*exp(-3*Z  -  Y.*Z)*S5.*Y.A2*(S_v))/Z  +  (4*exp(-2*Z  -  Y.*Z)*S5.*Y.A2*(S_v))/Z  -  (exp(-Z  - 
Y.*Z)*S5.*Y.A2*(S_v))/Z  +  (3*S5A2.*Y.A2*(S_v))/(exp(4*Z)*Z) ... 

-  (4*S5A2.*Y.A2*(S_v))/(exp(3*Z)*Z)  +  (S5A2.*Y.A2*(S_v))/(exp(2*Z)*Z)  -  (3*exp(-3*Z  - 

Y.*Z)*S5A2.*Y.A2*(S_v))/Z  +  (4*exp(-2*Z  -  Y.*Z)*S5A2.*Y.A2*(S_v))/Z  ... 

-  (exp(-Z  -  Y.*Z)*S5A2.*Y.A2*(S_v))/Z  -  (3*S5*Z*(S_v))/(4*exp(4*Z))  -  (7*S5*Z*(S_v))/(4*exp(2*Z)) 
-  (3*S5A2*Z*(S_v))/(4*exp(4*Z))  -  (3*S5A2*Z*(S_v))/(4*exp(2*Z)) ... 

+  (2*S5.*Y.*Z*(S_v))/exp(2*Z)  +  (S5A2.*Y.*Z*(S_v))/exp(2*Z)  +  (S5.*Y  A2*Z*(S_v))/exp(3*Z)  + 
(3*S5.*Y.A2*Z*(S_v))/(2*exp(2*Z))  +  (S5A2.*Y.A2*Z*(S_v))/exp(3*Z) ... 

+  (S5A2.*Y.A2*Z*(S_v))/(2*exp(2*Z))  -  (2*S5.*Y.A3*Z*(S_v))/exp(2*Z) 

(S5A2.*Y.A3*Z*(S_v))/exp(2*Z)  +  (3*S5.*Y.A4*Z*(S_v))/(4*exp(4*Z))  -  (S5.*Y.A4*Z*(S_v))/exp(3*Z) 

+  (S5.*Y.A4*Z*(S_v))/(4*exp(2*Z))  +  (3*S5A2.*Y.A4*Z*(S_v))/(4*exp(4*Z)) 

(S5A2.*Y.A4*Z*(S_v))/exp(3*Z)  +  (S5A2.*Y.A4*Z*(S_v))/(4*exp(2*Z))  +  (S5*ZA2*(S_v))/(2*exp(3*Z)) 

+  (S5A2*ZA2*(S_v))/(2*exp(3*Z))  -  (S5.*Y  A2*ZA2*(S_v))/exp(3*Z) 

(S5A2.*Y.A2*ZA2*(S_v))/exp(3*Z)  +  (S5.*Y.A4*ZA2*(S_v))/(2*exp(3*Z))  ... 

+  (S5A2.*Y.A4*ZA2*(S_v))/(2*exp(3*Z))  +  (9*S5A2*(S_v)A2)/(16*exp(6*Z)) 

(23*S5A2*(S_v)A2)/(8*exp(4*Z))  +  (2*S5A2*(S_v)A2)/exp(3*Z)  +  (S5A2*(S_v)A2)/(16*exp(2*Z)) ... 
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(exp(-2*Z  -  2.*Y.*Z)*S5A2*(S_v)A2)/2  -  exp(-3*Z  -  Y.*Z)*S5A2*(S_v)A2 

(2*S5A2.*Y.*(S_v)A2)/exp(3*Z)  -  (S5A2.*Y.*(S_v)A2)/exp(2*Z)  +  (9*S5A2.*Y  A2*(S_v)A2)/(8*exp(6*Z)) 

(3*S5A2.*Y.A2*(S_v)A2)/(2*exp(5*Z))  +  (1 1*S5A2.*Y  A2*(S_v)A2)/(2*exp(4*Z)) 

(7*S5A2.*Y  A2*(S_v)A2)/(2*exp(3*Z))  +  (15*S5A2.*Y  A2*(S_v)A2)/(8*exp(2*Z)) ... 

+  (exp(-2*Z  -  2.*Y.*Z)*S5A2.*Y.A2*(S_v)A2)/2  +  exp(-3*Z  -  Y.*Z)*S5A2.*Y  A2*(S_v)A2  - 

(3*S5A2.*Y ,A3*(S_v)A2)/exp(4*Z)  +  (4*S5A2.*Y  A3*(S_v)A2)/exp(3*Z) ... 

(S5A2.*Y.A3*(S_v)A2)/exp(2*Z)  +  (9*S5A2.*Y  A4*(S_v)A2)/(16*exp(6*Z)) 

(3*S5A2.*Y.A4*(S_v)A2)/(2*exp(5*Z))  +  (1  l*S5A2.*Y.A4*(S_v)A2)/(8*exp(4*Z)) ... 

(S5A2.*Y.A4*(S_v)A2)/(2*exp(3*Z))  +  (S5A2.*Y.A4*(S_v)A2)/(16*exp(2*Z))  + 

(9*S5A2*(S_v)A2)/(4*exp(6*Z)*ZA4)  -  (6*S5A2*(S_v)A2)/(exp(5*Z)*ZA4) ... 

+  (1  l*S5A2*(S_v)A2)/(2*exp(4*Z)*ZA4)  -  (2*S5A2*(S_v)A2)/(exp(3*Z)*ZA4)  + 

(S5A2*(S_v)A2)/(4*exp(2*Z)*ZA4)  +  (S5A2*(S_v)A2)./(4*exp(2.*Y.*Z)*ZA4)  ... 

+  (9*exp(-4*Z  -  2.*Y.*Z)*S5A2*(S_v)A2)/(4*ZA4)  -  (6*exp(-3*Z  -  2.*Y.*Z)*S5A2*(S_v)A2)/ZA4  + 
(ll*exp(-2*Z  -  2.*Y.*Z)*S5A2*(S_v)A2)/(2*ZA4)  ... 

-  (2*exp(-Z  -  2.*Y.*Z)*S5A2*(S_v)A2)/ZA4  -  (9*exp(-5*Z  -  Y.*Z)*S5A2*(S_v)A2)/(2*ZA4)  +  (12*exp(- 
4*Z  -  Y.*Z)*S5A2*(S_v)A2)/ZA4  -  (ll*exp(-3*Z  -  Y.*Z)*S5A2*(S_v)A2)/ZA4  ... 

+  (4*exp(-2*Z  -  Y.*Z)*S5A2*(S_v)A2)/ZA4  -  (exp(-Z  -  Y.*Z)*S5A2*(S_v)A2)/(2*ZA4)  + 
(12*S5A2*(S_v)A2)/(exp(5*Z)*ZA3)  -  (22*S5A2*(S_v)A2)/(exp(4*Z)*ZA3) ... 

+  (27*S5A2*(S_v)A2)/(2*exp(3*Z)*ZA3)  -  (4*S5A2*(S_v)A2)/(exp(2*Z)*ZA3)  + 

(S5A2*(S_v)A2)/(2*exp(Z)*ZA3)  -  (S5A2*(S_v)A2)./(2*exp(3.*Y.*Z)*ZA3) ... 

-  (S5A2*(S_v)A2)./(2*exp(Y.*Z)*ZA3)  -  (3*exp(-2*Z  -  3.*Y.*Z)*S5A2*(S_v)A2)/(2*ZA3)  +  (2*exp(-Z  - 
3.*Y.*Z)*S5A2*(S_v)A2)/ZA3  -  (3*exp(-3*Z  -  2.*Y.*Z)*S5A2*(S_v)A2)/(2*ZA3)  ... 

+  (2*exp(-2*Z  -  2.*Y.*Z)*S5A2*(S_v)A2)/ZA3  -  (exp(-Z  -  2.*Y.*Z)*S5A2*(S_v)A2)/(2*ZA3)  -  (9*exp(- 
4*Z  -  Y.*Z)*S5A2*(S_v)A2)/ZA3  +  (18*exp(-3*Z  -  Y.*Z)*S5A2*(S_v)A2)/ZA3  ... 

-  (25*exp(-2*Z  -  Y.*Z)*S5A2*(S_v)A2)/(2*ZA3)  +  (4*exp(-Z  -  Y.*Z)*S5A2*(S_v)A2)/ZA3  - 
(9*S5A2.*Y.*(S_v)A2)/(2*exp(5*Z)*ZA3)  +  (12*S5A2.*Y.*(S_v)A2)/(exp(4*Z)*ZA3) ... 

(ll*S5A2.*Y.*(S_v)A2)/(exp(3*Z)*ZA3)  +  (4*S5A2.*Y.*(S_v)A2)/(exp(2*Z)*ZA3) 

(S5A2.*Y.*(S_v)A2)/(2*exp(Z)*ZA3)  +  (S5A2.*Y.*(S_v)A2)/(2*exp(Y.*Z)*ZA3) ... 

+  (9*exp(-4*Z  -  Y.*Z)*S5A2.*Y.*(S_v)A2)/(2*ZA3)  -  (12*exp(-3*Z  -  Y.*Z)*S5A2.*Y.*(S_v)A2)/ZA3  + 
(ll*exp(-2*Z  -  Y.*Z)*S5A2.*Y.*(S_v)A2)/ZA3  ... 

(4*exp(-Z  -  Y.*Z)*S5A2.*Y.*(S_v)A2)/ZA3  +  (S5A2*(S_v)A2)/(4*ZA2)  + 

(9*S5A2*(S_v)A2)/(4*exp(6*Z)*ZA2)  -  (3*S5A2*(S_v)A2)/(exp(5*Z)*ZA2)  + 

(19*S5A2*(S_v)A2)/(exp(4*Z)*ZA2) ... 

(19*S5A2*(S_v)A2)/(exp(3*Z)*ZA2)  +  (35*S5A2*(S_v)A2)/(4*exp(2*Z)*ZA2) 

(2*S5A2*(S_v)A2)/(exp(Z)*ZA2)  +  (S5A2*(S_v)A2)./(4*exp(4.*Y.*Z)*ZA2) ... 

+  (S5A2*(S_v)A2)./(2*exp(2.*Y.*Z)*ZA2)  +  (exp(-Z  -  3.*Y.*Z)*S5A2*(S_v)A2)/ZA2  +  (5*exp(-2*Z  - 
2,*Y.*Z)*S5A2*(S_v)A2)/ZA2  -  (2*exp(-Z  -  2.*Y.*Z)*S5A2*(S_v)A2)/ZA2  ... 

-  (9*exp(-5*Z  -  Y.*Z)*S5A2*(S_v)A2)/(4*ZA2)  +  (3*exp(-4*Z  -  Y.*Z)*S5A2*(S_v)A2)/ZA2  +  (5*exp(- 
3*Z  -  Y.*Z)*S5A2*(S_v)A2)/ZA2  -  (exp(-2*Z  -  Y.*Z)*S5A2*(S_v)A2)/ZA2  ... 

+  (exp(-Z  -  Y.*Z)*S5A2*(S_v)A2)/(4*ZA2)  -  (S5A2.*Y.*(S_v)A2)/(2*ZA2) 

(15*S5A2.*Y.*(S_v)A2)/(exp(4*Z)*ZA2)  +  (26*S5A2.*Y.*(S_v)A2)/(exp(3*Z)*ZA2)  ... 

(29*S5A2.*Y.*(S_v)A2)/(2*exp(2*Z)*ZA2)  +  (4*S5A2.*Y.*(S_v)A2)/(exp(Z)*ZA2) 

(S5A2.*Y.*(S_v)A2)./(2*exp(2.*Y.*Z)*ZA2)  -  (3*exp(-2*Z  -  2,*Y.*Z)*S5A2.*Y.*(S_v)A2)/(2*ZA2) ... 

+  (2*exp(-Z  -  2.*Y.*Z)*S5A2.*Y.*(S_v)A2)/ZA2  +  (S5A2.*Y  ,A2*(S_v)A2)/(4*ZA2)  + 

(9*S5A2.*Y ,A2*(S_v)A2)/(4*exp(6*Z)*ZA2)  -  (6*S5A2.*Y.A2*(S_v)A2)/(exp(5*Z)*ZA2)  ... 

+  (31*S5A2.*Y.A2*(S_v)A2)/(4*exp(4*Z)*ZA2)  -  (8*S5A2.*Y  ,A2*(S_v)A2)/(exp(3*Z)*ZA2)  + 

(23*S5A2.*Y.A2*(S_v)A2)/(4*exp(2*Z)*ZA2)  -  (2*S5A2.*Y ,A2*(S_v)A2)/(exp(Z)*ZA2) ... 

-  (9*exp(-5*Z  -  Y.*Z)*S5A2.*Y.A2*(S_v)A2)/(4*ZA2)  +  (6*exp(-4*Z  -  Y.*Z)*S5A2.*Y  A2*(S_v)A2)/ZA2 
-  (ll*exp(-3*Z  -  Y.*Z)*S5A2.*Y.A2*(S_v)A2)/(2*ZA2) ... 

+  (2*exp(-2*Z  -  Y.*Z)*S5A2.*Y.A2*(S_v)A2)/ZA2  -  (exp(-Z  -  Y.*Z)*S5A2.*Y.A2*(S_v)A2)/(4*ZA2)  + 
(9*S5A2*(S_v)A2)/(2*exp(5*Z)*Z)  -  (S5A2*(S_v)A2)/(exp(4*Z)*Z) ... 

+  (25*S5A2*(S_v)A2)/(4*exp(3*Z)*Z)  -  (3*S5A2*(S_v)A2)/(exp(2*Z)*Z)  + 

(3*S5A2*(S_v)A2)/(4*exp(Z)*Z)  +  (3*exp(-3*Z  -  2.*Y.*Z)*S5A2*(S_v)A2)/(4*Z) ... 

+  (3*exp(-Z  -  2,*Y.*Z)*S5A2*(S_v)A2)/(4*Z)  +  (3*exp(-4*Z  -  Y.*Z)*S5A2*(S_v)A2)/Z  -  (2*exp(-3*Z  - 
Y.*Z)*S5A2*(S_v)A2)/Z  +  (2*exp(-2*Z  -  Y.*Z)*S5A2*(S_v)A2)/Z  ... 
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(9*S5A2.*Y.*(S_v)A2)/(4*exp(5*Z)*Z)  +  (3*S5A2.*Y.*(S_v)A2)/(exp(4*Z)*Z) 

(1  l*S5A2.*Y.*(S_v)A2)/(exp(3*Z)*Z)  +  (7*S5A2.*Y.*(S_v)A2)/(exp(2*Z)*Z) ... 

-  (7*S5A2.*Y.*(S_v)A2)/(4*exp(Z)*Z)  -  (exp(-Z  -  2.*Y.*Z)*S5A2.*Y.*(S_v)A2)/Z  -  (2*exp(-2*Z  - 
Y.*Z)*S5A2.*Y.*(S_v)A2)/Z  +  (15*S5A2.*Y  A2*(S_v)A2)/(2*exp(5*Z)*Z)  ... 

(13*S5A2.*Y.A2*(S_v)A2)/(exp(4*Z)*Z)  +  (41*S5A2.*Y  A2*(S_v)A2)/(4*exp(3*Z)*Z) 

(6*S5A2.*Y.A2*(S_v)A2)/(exp(2*Z)*Z)  +  (5*S5A2.*Y  A2*(S_v)A2)/(4*exp(Z)*Z) ... 

+  (3*exp(-3*Z  -  2.*Y.*Z)*S5A2.*Y.A2*(S_v)A2)/(4*Z)  -  (exp(-2*Z  -  2.*Y.*Z)*S5A2.*Y  A2*(S_v)A2)/Z 
+  (exp(-Z  -  2.*Y.*Z)*S5A2.*Y.A2*(S_v)A2)/(4*Z) ... 

(9*S5A2.*Y  A3*(S_v)A2)/(4*exp(5*Z)*Z)  +  (6*S5A2.*Y  A3*(S_v)A2)/(exp(4*Z)*Z) 

(1  l*S5A2.*Y.A3*(S_v)A2)/(2*exp(3*Z)*Z)  +  (2*S5A2.*Y  A3*(S_v)A2)/(exp(2*Z)*Z)  ... 

(S5A2.*Y  A3*(S_v)A2)/(4*exp(Z)*Z)  -  (3*S5A2*Z*(S_v)A2)/(4*exp(5*Z)) 

(3*S5A2*Z*(S_v)A2)/(4*exp(3*Z))  +  (S5A2.*Y.*Z*(S_v)A2)/exp(3*Z)  + 

(S5A2.*Y.A2*Z*(S_v)A2)/exp(4*Z) ... 

+  (S5A2.*Y.A2*Z*(S_v)A2)/(2*exp(3*Z))  -  (S5A2.*Y.A3*Z*(S_v)A2)/exp(3*Z)  + 

(3*S5A2.*Y.A4*Z*(S_v)A2)/(4*exp(5*Z))  -  (S5A2.*Y  A4*Z*(S_v)A2)/exp(4*Z) ... 

+  (S5A2.*Y.A4*Z*(S_v)A2)/(4*exp(3*Z))  +  (S5A2*ZA2*(S_v)A2)/(4*exp(4*Z)) 

(S5A2.*Y.A2*ZA2*(S_v)A2)/(2*exp(4*Z))  +  (S5A2.*Y.A4*ZA2*(S_v)A2)/(4*exp(4*Z)); 


Ns5=Nf+Nc+Ny5; 

Phi5=Nf./[Nc+Ny5]; 

Be5=l./[1+Phi5]; 

Gf5=Nf./Ns5; 

Gh5=[Nc+Ny5]./Ns5; 

Nh5=Nc+Ny5; 


plot(Y,Nsl,'b',Y,Ns2,'g',Y,Ns3,'r',Y,Ns4,'k',Y,Ns5,'m') 

%  plot(Y,Be  1  ,'b', Y,Be2,'g',Y,Be3,'r', Y,Be4,'k',Y,Be5,'m') 

%  plot(Y,Phil,'b',Y,Phi2,'g',Y,Phi3,'r',Y,Phi4,'k',Y,Phi5,'m') 

%  plot(Y,Gfl,'b',Y,Gf2,'g',Y,GG,'r',Y,Gf4,'k',Y,Gf5,'m') 

%  plot(Y,Ghl,'b',Y,Gh2,'g',Y,Gh3,'r',Y,Gh4,'k',Y,Gh5,'m') 

%  plot(Y,Nf) 

%  plot(Y,Nhl,'b',Y,Nh2,'g',Y,Nh3,'r',Y,Nh4,'k',Y,Nh5,'m') 

%  plot(Nhl,Nfl,'b',Nh2,Nf2,'g',Nh3,Nf3,'r',Nh4,Nf4,'k',Nh5,Nf5,'m') 


PLOTTOOLS  ON 
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1.5.  Distribution  of  Ns ,  Be ,  O ,  GF ,  GH,  NF  and  NH  versus  Y  for  a  range  of  S, 


and  set  of  S ,  Z ,  Br  &  Pe 


S=l;  Z=l;  Br=l;  Pe=2.5; 

%  S=1 .5;  Z=3.5;  Br=0.5;  Pe=5.5; 

%  %  %  %  %  Z=6;  S=8;  Br=0.6;  Pe=7; 

%  %  %  %  %  Z=7.5;  S=15;  Br=0.6;  Pe=2.5; 
%  %  %  %  %  Z=5;  S=0.75;  Br=l;  Pe=2; 

%  %  %  %  %  Z=18;  S=25;  Br=0.9;  Pe=5; 


q=1.86; 

s=l; 

Dh=250*10A-6; 
Y=0:0. 005:1; 


Nc=[l/PeA2]*[16*qA2+sA2*DhA2+8*q*s*Dh]; 

Nf=Br*[(ZA2).*exp(-2.*Y.*Z)+(ZA2)*exp(-2*Z)-2*ZA2.*exp(-Z-Y.*Z)]; 


S_vl=l; 

Nyl=l  -  exp(-2*Z)  +  exp(-Z  -  Y.*Z)  -  (2*S)/exp(2*Z)  +  2*exp(-Z  -  Y.*Z)*S  -  SA2/exp(2*Z)  +  exp(-Z  - 
Y.*Z)*SA2-2.*Y  +  Y.A2  +  Y.A2/exp(2*Z)-exp(-Z-Y.*Z).*Y.A2... 

+  (2*S.*Y.A2)/exp(2*Z)  -  2*exp(-Z  -  Y.*Z)*S.*Y.A2  +  (SA2.*Y  A2)/exp(2*Z)  -  exp(-Z  - 
Y.*Z)*SA2.*Y.A2  +  l/(exp(2*Z)*ZA2)  +  l./(exp(2.*Y.*Z)*ZA2) ... 

-  (2*exp(-Z  -  Y.*Z))/ZA2  +  (2*S)/(exp(2*Z)*ZA2)  +  (2*S)./(exp(2.*Y.*Z)*ZA2)  -  (4*exp(-Z  - 
Y.*Z)*S)/ZA2  +  SA2/(exp(2*Z)*ZA2)  +  SA2./(exp(2.*Y.*Z)*ZA2)  ... 

-  (2*exp(-Z  -  Y.*Z)*SA2)/ZA2  +  2/(exp(Z)*Z)  -  2,/(exp(Y.*Z)*Z)  +  (2*S)/(exp(Z)*Z)  - 
(2*S)./(exp(Y.*Z)*Z)  -  (2,*Y)/(exp(Z)*Z)  +  (2,*Y)/(exp(Y.*Z)*Z) ... 

-  (2*S.*Y)/(exp(Z)*Z)  +  (2*S.*Y)/(exp(Y.*Z)*Z)  -  Z/exp(Z)  -  (S*Z)/exp(Z)  +  (Y.*Z)/exp(Z)  + 
(S.*Y.*Z)/exp(Z)  +(Y.A2*Z)/exp(Z)  +  (S.*Y ,A2*Z)/exp(Z)  -  (Y  A3*Z)/exp(Z) ... 

-  (S.*Y.A3*Z)/exp(Z)  +  ZA2/(4*exp(2*Z))  +  (S*ZA2)/(2*exp(2*Z))  +  (SA2*ZA2)/(4*exp(2*Z))  - 
(Y ,A2*ZA2)/(2*exp(2*Z))  -  (S.*Y  A2*ZA2)/exp(2*Z)  ... 

-  (SA2.*Y.A2*ZA2)/(2*exp(2*Z))  +  (Y.A4*ZA2)/(4*exp(2*Z))  +  (S.*Y.A4*ZA2)/(2*exp(2*Z))  + 
(SA2.*Y.A4*ZA2)/(4*exp(2*Z))  -  (7*S*(S_vl))/(2*exp(3*Z)) ... 

+  (2*S*(S_vl))/exp(2*Z)  +  (S*(S_vl))/exp(Z)  -  (exp(-Z  -  2.*Y.*Z)*S*(S_vl))/2 

(5*SA2*(S_vl))/exp(3*Z)  +  (2*SA2*(S_vl))/exp(2*Z)  -  (SA2*(S_vl))/(2*exp(Z)) ... 

-  (exp(-Z  -  2.*Y.*Z)*SA2*(S_vl))/2  -  (2*S.*Y.*(S_vl))/exp(2*Z)  -  (3*S.*Y.*(S_vl))/exp(Z)  + 
(3*SA2.*Y.*(S_vl))/(2*exp(3*Z))  -  (2*SA2.*Y.*(S_vl))/exp(2*Z) ... 

+  (SA2.*Y.*(S_vl))/(2*exp(Z))  +  (13*S.*Y ,A2*(S_vl))/(2*exp(3*Z))  -  (4*S.*Y  A2*(S_vl))/exp(2*Z)  + 
(3*S.*Y  A2*(S_vl))/exp(Z)  +  (exp(-Z  -  2,*Y.*Z)*S.*Y ,A2*(S_vl))/2  ... 

+  (5*SA2.*Y.A2*(S_vl))/exp(3*Z)  -  (2*SA2.*Y.A2*(S_vl))/exp(2*Z)  +  (SA2.*Y ,A2*(S_vl))/(2*exp(Z)) 
+  (exp(-Z  -  2.*Y.*Z)*SA2.*Y.A2*(S_vl))/2  -  (3*S.*Y ,A3*(S_vl))/exp(3*Z) ... 

+  (4*S.*Y.A3*(S_vl))/exp(2*Z)  -  (S.*Y.A3*(S_vl))/exp(Z)  -  (3*SA2.*Y ,A3*(S_vl))/(2*exp(3*Z))  + 
(2*SA2.*Y.A3*(S_vl))/exp(2*Z)  -  (SA2.*Y.A3*(S_vl))/(2*exp(Z)) ... 

+  (3*S*(S_vl))/(exp(4*Z)*ZA3)  -  (4*S*(S_vl))/(exp(3*Z)*ZA3)  +  (S*(S_vl))/(exp(2*Z)*ZA3)  + 
(S*(S_vl))./(exp(2.*Y.*Z)*ZA3)  +  (3*exp(-2*Z  -  2.*Y.*Z)*S*(S_vl))/ZA3  ... 

-  (4*exp(-Z  -  2.*Y.*Z)*S*(S_vl))/ZA3  -  (6*exp(-3*Z  -  Y.*Z)*S*(S_vl))/ZA3  +  (8*exp(-2*Z  - 
Y.*Z)*S*(S_vl))/ZA3  -  (2*exp(-Z  -  Y.*Z)*S*(S_vl))/ZA3  ... 
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+  (3*SA2*(S_vl))/(exp(4*Z)*ZA3)  -  (4*SA2*(S_vl))/(exp(3*Z)*ZA3)  +  (SA2*(S_vl))/(exp(2*Z)*ZA3)  + 
(SA2*(S_vl))./(exp(2.*Y.*Z)*ZA3)  +  (3*exp(-2*Z  -  2.*Y.*Z)*SA2*(S_vl))/ZA3  ... 

-  (4*exp(-Z  -  2.*Y.*Z)*SA2*(S_vl))/ZA3  -  (6*exp(-3*Z  -  Y.*Z)*SA2*(S_vl))/ZA3  +  (8*exp(-2*Z  - 
Y.*Z)*SA2*(S_vl))/ZA3  -  (2*exp(-Z  -  Y.*Z)*SA2*(S_vl))/ZA3  ... 

+  (1  l*S*(S_vl))/(exp(3*Z)*ZA2)  -  (8*S*(S_vl))/(exp(2*Z)*ZA2)  +  (2*S*(S_vl))/(exp(Z)*ZA2)  - 
(S*(S_vl))./(exp(3.*Y.*Z)*ZA2)  -  (2*S*(S_vl))./(exp(Y.*Z)*ZA2) ... 

-  (exp(-Z  -  2.*Y.*Z)*S*(S_vl))/ZA2  -  (9*exp(-2*Z  -  Y.*Z)*S*(S_vl))/ZA2  +  (8*exp(-Z  - 
Y.*Z)*S*(S_vl))/ZA2  +  (8*SA2*(S_vl))/(exp(3*Z)*ZA2);  ... 

-  (4*SA2*(S_vl))/(exp(2*Z)*ZA2)  +  (SA2*(S_vl))/(exp(Z)*ZA2)  -  (SA2*(S_vl))./(exp(3.*Y.*Z)*ZA2)  - 
(SA2*(S_vl))./(exp(Y.*Z)*ZA2)  -  (exp(-Z  -  2.*Y.*Z)*SA2*(S_vl))/ZA2  ... 

-  (6*exp(-2*Z  -  Y.*Z)*SA2*(S_vl))/ZA2  +  (4*exp(-Z  -  Y.*Z)*SA2*(S_vl))/ZA2  - 

(6*S.*Y.*(S_vl))/(exp(3*Z)*ZA2)  +  (8*S.*Y.*(S_vl))/(exp(2*Z)*ZA2) ... 

-  (2*S.*Y.*(S_vl))/(exp(Z)*ZA2)  +  (2*S.*Y.*(S_vl))/(exp(Y.*Z)*ZA2)  +  (6*exp(-2*Z  - 

Y.*Z)*S.*Y.*(S_vl))/ZA2  -  (8*exp(-Z  -  Y.*Z)*S.*Y.*(S_vl))/ZA2  ... 

(3*SA2.*Y.*(S_vl))/(exp(3*Z)*ZA2)  +  (4*SA2.*Y.*(S_vl))/(exp(2*Z)*ZA2) 

(SA2.*Y.*(S_vl))/(exp(Z)*ZA2)  +  (SA2.*Y.*(S_vl))/(exp(Y.*Z)*ZA2) ... 

+  (3*exp(-2*Z  -  Y.*Z)*SA2.*Y.*(S_vl))/ZA2  -  (4*exp(-Z  -  Y.*Z)*SA2.*Y.*(S_vl))/ZA2  +  (S*(S_vl))/Z 
+  (2*S*(S_vl))/(exp(3*Z)*Z)  +  (9*S*(S_vl))/(exp(2*Z)*Z)... 

-  (4*S*(S_vl))/(exp(Z)*Z)  +  (S*(S_vl))./(exp(2.*Y.*Z)*Z)  -  (2*exp(-2*Z  -  Y.*Z)*S*(S_vl))/Z  + 
(exp(-Z  -  Y.*Z)*S*(S_vl))/Z  +  (2*SA2*(S_vl))/(exp(3*Z)*Z) ... 

+  (SA2*(S_vl))/(exp(2*Z)*Z)  -  (2*exp(-2*Z  -  Y.*Z)*SA2*(S_vl))/Z  -  (exp(-Z  -  Y.*Z)*SA2*(S_vl))/Z  - 
(2*S.*Y.*(S_vl))/Z  -  (13*S.*Y.*(S_vl))/(exp(2*Z)*Z) ... 

+  (8*S.*Y.*(S_vl))/(exp(Z)*Z)  -  (S.*Y.*(S_vl))./(exp(2.*Y.*Z)*Z) 

(2*SA2.*Y.*(S_vl))/(exp(2*Z)*Z)  +  (2*exp(-Z  -  Y.*Z)*SA2.*Y.*(S_vl))/Z  +  (S.*Y.A2*(S_vl))/Z  ... 

+  (3*S.*Y.A2*(S_vl))/(exp(4*Z)*Z)  -  (4*S.*Y  A2*(S_vl))/(exp(3*Z)*Z)  + 

(4*S.*Y.A2*(S_vl))/(exp(2*Z)*Z)  -  (4*S.*Y  A2*(S_vl))/(exp(Z)*Z) ... 

-  (3*exp(-3*Z  -  Y.*Z)*S.*Y.A2*(S_vl))/Z  +  (4*exp(-2*Z  -  Y.*Z)*S.*Y.A2*(S_vl))/Z  -  (exp(-Z  - 
Y.*Z)*S.*Y.A2*(S_vl))/Z  +  (3*SA2.*Y.A2*(S_vl))/(exp(4*Z)*Z) ... 

-  (4*SA2.*Y.A2*(S_vl))/(exp(3*Z)*Z)  +  (SA2.*Y  A2*(S_vl))/(exp(2*Z)*Z)  -  (3*exp(-3*Z  - 

Y.*Z)*SA2.*Y.A2*(S_vl))/Z  +  (4*exp(-2*Z  -  Y.*Z)*SA2.*Y.A2*(S_vl))/Z  ... 

-  (exp(-Z  -  Y.*Z)*SA2.*Y.A2*(S_vl))/Z  -  (3*S*Z*(S_vl))/(4*exp(4*Z))  -  (7*S*Z*(S_vl))/(4*exp(2*Z)) 
-  (3*SA2*Z*(S_vl))/(4*exp(4*Z))  -  (3*SA2*Z*(S_vl))/(4*exp(2*Z)) ... 

+  (2*S.*Y.*Z*(S_vl))/exp(2*Z)  +  (SA2.*Y.*Z*(S_vl))/exp(2*Z)  +  (S.*Y.A2*Z*(S_vl))/exp(3*Z)  + 
(3*S.*Y.A2*Z*(S_vl))/(2*exp(2*Z))  +  (SA2.*Y.A2*Z*(S_vl))/exp(3*Z) ... 

+  (SA2.*Y.A2*Z*(S_vl))/(2*exp(2*Z))  -  (2*S.*Y.A3*Z*(S_vl))/exp(2*Z) 

(SA2.*Y.A3*Z*(S_vl))/exp(2*Z)  +  (3*S.*Y.A4*Z*(S_vl))/(4*exp(4*Z))  -  (S.*Y.A4*Z*(S_vl))/exp(3*Z) 

+  (S.*Y.A4*Z*(S_vl))/(4*exp(2*Z))  +  (3*SA2.*Y.A4*Z*(S_vl))/(4*exp(4*Z)) 

(SA2.*Y.A4*Z*(S_vl))/exp(3*Z)  +  (SA2.*Y.A4*Z*(S_vl))/(4*exp(2*Z))  +  (S*ZA2*(S_vl))/(2*exp(3*Z)) 

+  (SA2*ZA2*(S_vl))/(2*exp(3*Z))  -  (S.*Y.A2*ZA2*(S_vl))/exp(3*Z) 

(SA2.*Y.A2*ZA2*(S_vl))/exp(3*Z)  +  (S.*Y.A4*ZA2*(S_vl))/(2*exp(3*Z)) ... 

+  (SA2.*Y.A4*ZA2*(S_vl))/(2*exp(3*Z))  +  (9*SA2*(S_vl)A2)/(16*exp(6*Z)) 

(23*SA2*(S_vl)A2)/(8*exp(4*Z))  +  (2*SA2*(S_vl)A2)/exp(3*Z)  +  (SA2*(S_vl)A2)/(16*exp(2*Z)) ... 

(exp(-2*Z  -  2.*Y.*Z)*SA2*(S_vl)A2)/2  -  exp(-3*Z  -  Y.*Z)*SA2*(S_vl)A2 

(2*SA2.*Y.*(S_vl)A2)/exp(3*Z)  -  (SA2.*Y.*(S_vl)A2)/exp(2*Z)  +  (9*SA2.*Y.A2*(S_vl)A2)/(8*exp(6*Z)) 

(3*SA2.*Y.A2*(S_vl)A2)/(2*exp(5*Z))  +  (1  l*SA2.*Y.A2*(S_vl)A2)/(2*exp(4*Z)) 

(7*SA2.*Y  A2*(S_vl)A2)/(2*exp(3*Z))  +  (15*SA2.*Y.A2*(S_vl)A2)/(8*exp(2*Z)) ... 

+  (exp(-2*Z  -  2.*Y.*Z)*SA2.*Y.A2*(S_vl)A2)/2  +  exp(-3*Z  -  Y.*Z)*SA2.*Y  A2*(S_vl)A2  - 

(3*SA2.*Y.A3*(S_vl)A2)/exp(4*Z)  +  (4*SA2.*Y.A3*(S_vl)A2)/exp(3*Z) ... 

(SA2.*Y.A3*(S_vl)A2)/exp(2*Z)  +  (9*SA2.*Y.A4*(S_vl)A2)/(16*exp(6*Z)) 

(3*SA2.*Y.A4*(S_vl)A2)/(2*exp(5*Z))  +  (1  l*SA2.*Y.A4*(S_vl)A2)/(8*exp(4*Z)) ... 

(SA2.*Y.A4*(S_vl)A2)/(2*exp(3*Z))  +  (SA2.*Y.A4*(S_vl)A2)/(16*exp(2*Z))  + 

(9*SA2*(S_vl)A2)/(4*exp(6*Z)*ZA4)  -  (6*SA2*(S_vl)A2)/(exp(5*Z)*ZA4) ... 
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+  (1  l*SA2*(S_vl)A2)/(2*exp(4*Z)*ZA4)  -  (2*SA2*(S_vl)A2)/(exp(3*Z)*ZA4)  + 

(SA2*(S_vl)A2)/(4*exp(2*Z)*ZA4)  +  (SA2*(S_vl)A2)./(4*exp(2.*Y.*Z)*ZA4)  ... 

+  (9*exp(-4*Z  -  2.*Y.*Z)*SA2*(S_vl)A2)/(4*ZA4)  -  (6*exp(-3*Z  -  2.*Y.*Z)*SA2*(S_vl)A2)/ZA4  + 
(ll*exp(-2*Z  -  2.*Y.*Z)*SA2*(S_vl)A2)/(2*ZA4)  ... 

-  (2*exp(-Z  -  2.*Y.*Z)*SA2*(S_vl)A2)/ZA4  -  (9*exp(-5*Z  -  Y.*Z)*SA2*(S_vl)A2)/(2*ZA4)  +  (12*exp(- 
4*Z  -  Y.*Z)*SA2*(S_vl)A2)/ZA4  -  (ll*exp(-3*Z  -  Y.*Z)*SA2*(S_vl)A2)/ZA4  ... 

+  (4*exp(-2*Z  -  Y.*Z)*SA2*(S_vl)A2)/ZA4  -  (exp(-Z  -  Y.*Z)*SA2*(S_vl)A2)/(2*ZA4)  + 
(12*SA2*(S_vl)A2)/(exp(5*Z)*ZA3)  -  (22*SA2*(S_vl)A2)/(exp(4*Z)*ZA3) ... 

+  (27*SA2*(S_vl)A2)/(2*exp(3*Z)*ZA3)  -  (4*SA2*(S_vl)A2)/(exp(2*Z)*ZA3)  + 

(SA2*(S_vl)A2)/(2*exp(Z)*ZA3)  -  (SA2*(S_vl)A2)./(2*exp(3.*Y.*Z)*ZA3) ... 

-  (SA2*(S_vl)A2)./(2*exp(Y.*Z)*ZA3)  -  (3*exp(-2*Z  -  3.*Y.*Z)*SA2*(S_vl)A2)/(2*ZA3)  +  (2*exp(-Z  - 
3.*Y.*Z)*SA2*(S_vl)A2)/ZA3  -  (3*exp(-3*Z  -  2.*Y.*Z)*SA2*(S_vl)A2)/(2*ZA3)  ... 

+  (2*exp(-2*Z  -  2.*Y.*Z)*SA2*(S_vl)A2)/ZA3  -  (exp(-Z  -  2.*Y.*Z)*SA2*(S_vl)A2)/(2*ZA3)  -  (9*exp(- 
4*Z  -  Y.*Z)*SA2*(S_vl)A2)/ZA3  +  (18*exp(-3*Z  -  Y.*Z)*SA2*(S_vl)A2)/ZA3  ... 

-  (25*exp(-2*Z  -  Y.*Z)*SA2*(S_vl)A2)/(2*ZA3)  +  (4*exp(-Z  -  Y.*Z)*SA2*(S_vl)A2)/ZA3  - 
(9*SA2.*Y.*(S_vl)A2)/(2*exp(5*Z)*ZA3)  +  (12*SA2.*Y.*(S_vl)A2)/(exp(4*Z)*ZA3) ... 

(ll*SA2.*Y.*(S_vl)A2)/(exp(3*Z)*ZA3)  +  (4*SA2.*Y.*(S_vl)A2)/(exp(2*Z)*ZA3) 

(SA2.*Y.*(S_vl)A2)/(2*exp(Z)*ZA3)  +  (SA2.*Y.*(S_vl)A2)/(2*exp(Y.*Z)*ZA3) ... 

+  (9*exp(-4*Z  -  Y.*Z)*SA2.*Y.*(S_vl)A2)/(2*ZA3)  -  (12*exp(-3*Z  -  Y.*Z)*SA2.*Y.*(S_vl)A2)/ZA3  + 
(ll*exp(-2*Z  -  Y.*Z)*SA2.*Y.*(S_vl)A2)/ZA3  ... 

(4*exp(-Z  -  Y.*Z)*SA2.*Y.*(S_vl)A2)/ZA3  +  (SA2*(S_vl)A2)/(4*ZA2)  + 

(9*SA2*(S_vl)A2)/(4*exp(6*Z)*ZA2)  -  (3*SA2*(S_vl)A2)/(exp(5*Z)*ZA2)  + 

(19*SA2*(S_vl)A2)/(exp(4*Z)*ZA2)  ... 

(19*SA2*(S_vl)A2)/(exp(3*Z)*ZA2)  +  (35*SA2*(S_vl)A2)/(4*exp(2*Z)*ZA2) 

(2*SA2*(S_vl)A2)/(exp(Z)*ZA2)  +  (SA2*(S_vl)A2)./(4*exp(4.*Y.*Z)*ZA2) ... 

+  (SA2*(S_vl)A2)./(2*exp(2.*Y.*Z)*ZA2)  +  (exp(-Z  -  3.*Y.*Z)*SA2*(S_vl)A2)/ZA2  +  (5*exp(-2*Z  - 
2,*Y.*Z)*SA2*(S_vl)A2)/ZA2  -  (2*exp(-Z  -  2.*Y.*Z)*SA2*(S_vl)A2)/ZA2  ... 

-  (9*exp(-5*Z  -  Y.*Z)*SA2*(S_vl)A2)/(4*ZA2)  +  (3*exp(-4*Z  -  Y.*Z)*SA2*(S_vl)A2)/ZA2  +  (5*exp(- 
3*Z  -  Y.*Z)*SA2*(S_vl)A2)/ZA2  -  (exp(-2*Z  -  Y.*Z)*SA2*(S_vl)A2)/ZA2  ... 

+  (exp(-Z  -  Y.*Z)*SA2*(S_vl)A2)/(4*ZA2)  -  (SA2.*Y.*(S_vl)A2)/(2*ZA2) 

(15*SA2.*Y.*(S_vl)A2)/(exp(4*Z)*ZA2)  +  (26*SA2.*Y.*(S_vl)A2)/(exp(3*Z)*ZA2) ... 

(29*SA2.*Y.*(S_vl)A2)/(2*exp(2*Z)*ZA2)  +  (4*SA2.*Y.*(S_vl)A2)/(exp(Z)*ZA2) 

(SA2.*Y.*(S_vl)A2)./(2*exp(2.*Y.*Z)*ZA2)  -  (3*exp(-2*Z  -  2,*Y.*Z)*SA2.*Y.*(S_vl)A2)/(2*ZA2) ... 

+  (2*exp(-Z  -  2.*Y.*Z)*SA2.*Y.*(S_vl)A2)/ZA2  +  (SA2.*Y  ,A2*(S_vl)A2)/(4*ZA2)  + 

(9*SA2.*Y  A2*(S_vl)A2)/(4*exp(6*Z)*ZA2)  -  (6*SA2.*Y ,A2*(S_vl)A2)/(exp(5*Z)*ZA2)  ... 

+  (31*SA2.*Y.A2*(S_vl)A2)/(4*exp(4*Z)*ZA2)  -  (8*SA2.*Y  A2*(S_vl)A2)/(exp(3*Z)*ZA2)  + 

(23*SA2.*Y.A2*(S_vl)A2)/(4*exp(2*Z)*ZA2)  -  (2*SA2.*Y  A2*(S_vl)A2)/(exp(Z)*ZA2) ... 

-  (9*exp(-5*Z  -  Y.*Z)*SA2.*Y.A2*(S_vl)A2)/(4*ZA2)  +  (6*exp(-4*Z  -  Y.*Z)*SA2.*Y ,A2*(S_vl)A2)/ZA2 
-  (ll*exp(-3*Z  -  Y.*Z)*SA2.*Y.A2*(S_vl)A2)/(2*ZA2) ... 

+  (2*exp(-2*Z  -  Y. *Z)*SA2. * Y.A2*(S_vl )A2)/ZA2  -  (exp(-Z  -  Y.*Z)*SA2.*Y ,A2*(S_vl)A2)/(4*ZA2)  + 
(9*SA2*(S_vl)A2)/(2*exp(5*Z)*Z)  -  (SA2*(S_vl)A2)/(exp(4*Z)*Z) ... 

+  (25*SA2*(S_vl)A2)/(4*exp(3*Z)*Z)  -  (3*SA2*(S_vl)A2)/(exp(2*Z)*Z)  + 

(3*SA2*(S_vl)A2)/(4*exp(Z)*Z)  +  (3*exp(-3*Z  -  2.*Y.*Z)*SA2*(S_vl)A2)/(4*Z) ... 

+  (3*exp(-Z  -  2,*Y.*Z)*SA2*(S_vl)A2)/(4*Z)  +  (3*exp(-4*Z  -  Y.*Z)*SA2*(S_vl)A2)/Z  -  (2*exp(-3*Z  - 
Y.*Z)*SA2*(S_vl)A2)/Z  +  (2*exp(-2*Z  -  Y.*Z)*SA2*(S_vl)A2)/Z  ... 

(9*SA2.*Y.*(S_vl)A2)/(4*exp(5*Z)*Z)  +  (3*SA2.*Y.*(S_vl)A2)/(exp(4*Z)*Z) 

(1  l*SA2.*Y.*(S_vl)A2)/(exp(3*Z)*Z)  +  (7*SA2.*Y.*(S_vl)A2)/(exp(2*Z)*Z) ... 

-  (7*SA2.*Y.*(S_vl)A2)/(4*exp(Z)*Z)  -  (exp(-Z  -  2.*Y.*Z)*SA2.*Y.*(S_vl)A2)/Z  -  (2*exp(-2*Z  - 
Y.*Z)*SA2.*Y.*(S_vl)A2)/Z  +  (15*SA2.*Y.A2*(S_vl)A2)/(2*exp(5*Z)*Z) ... 

(13*SA2.*Y.A2*(S_vl)A2)/(exp(4*Z)*Z)  +  (41*SA2.*Y  ,A2*(S_vl)A2)/(4*exp(3*Z)*Z) 

(6*SA2.*Y.A2*(S_vl)A2)/(exp(2*Z)*Z)  +  (5*SA2.*Y  A2*(S_vl)A2)/(4*exp(Z)*Z)  ... 

+  (3*exp(-3*Z  -  2.*Y.*Z)*SA2.*Y.A2*(S_vl)A2)/(4*Z)  -  (exp(-2*Z  -  2.*Y.*Z)*SA2.*Y  A2*(S_vl)A2)/Z 
+  (exp(-Z  -  2.*Y.*Z)*SA2.*Y.A2*(S_vl)A2)/(4*Z)  ... 

(9*SA2.*Y  ,A3*(S_vl)A2)/(4*exp(5*Z)*Z)  +  (6*SA2.*Y  ,A3*(S_vl)A2)/(exp(4*Z)*Z) 

(1  l*SA2.*Y.A3*(S_vl)A2)/(2*exp(3*Z)*Z)  +  (2*SA2.*Y  A3*(S_vl)A2)/(exp(2*Z)*Z) ... 
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(SA2.*Y.A3*(S_vl)A2)/(4*exp(Z)*Z)  -  (3*SA2*Z*(S_vl)A2)/(4*exp(5*Z)) 

(3*SA2*Z*(S_vl)A2)/(4*exp(3*Z))  +  (SA2.*Y.*Z*(S_vl)A2)/exp(3*Z)  + 

(SA2.*Y.A2*Z*(S_vl)A2)/exp(4*Z) ... 

+  (SA2.*Y.A2*Z*(S_vl)A2)/(2*exp(3*Z))  -  (SA2.*Y  A3*Z*(S_vl)A2)/exp(3*Z)  + 

(3*SA2.*Y.A4*Z*(S_vl)A2)/(4*exp(5*Z))  -  (SA2.*Y.A4*Z*(S_vl)A2)/exp(4*Z)  ... 

+  (SA2.*Y.A4*Z*(S_vl)A2)/(4*exp(3*Z))  +  (SA2*ZA2*(S_vl)A2)/(4*exp(4*Z)) 

(SA2.*Y.A2*ZA2*(S_vl)A2)/(2*exp(4*Z))  +  (SA2.*Y.A4*ZA2*(S_vl)A2)/(4*exp(4*Z)); 


Nsl=Nf+Nc+Nyl; 

Phil=Nf./[Nc+Nyl]; 

Be  1=1  ./[1+Phil]; 

Gfl=Nf./Nsl; 

Ghl=[Nc+Nyl]./Nsl; 

Nhl=Nc+Nyl; 


S_v2=2; 

Ny2=l  -  exp(-2*Z)  +  exp(-Z  -  Y.*Z)  -  (2*S)/exp(2*Z)  +  2*exp(-Z  -  Y.*Z)*S  -  SA2/exp(2*Z)  +  exp(-Z  - 
Y.*Z)*SA2  -  2,*Y  +  Y ,A2  +  Y  A2/exp(2*Z)  -  exp(-Z  -  Y.*Z).*Y ,A2  ... 

+  (2*S.*Y.A2)/exp(2*Z)  -  2*exp(-Z  -  Y.*Z)*S.*Y.A2  +  (SA2.*Y  A2)/exp(2*Z)  -  exp(-Z  - 
Y.*Z)*SA2.*Y.A2  +  l/(exp(2*Z)*ZA2)  +  l./(exp(2.*Y.*Z)*ZA2) ... 

-  (2*exp(-Z  -  Y.*Z))/ZA2  +  (2*S)/(exp(2*Z)*ZA2)  +  (2*S)./(exp(2.*Y.*Z)*ZA2)  -  (4*exp(-Z  - 
Y.*Z)*S)/ZA2  +  SA2/(exp(2*Z)*ZA2)  +  SA2./(exp(2.*Y.*Z)*ZA2)  ... 

-  (2*exp(-Z  -  Y.*Z)*SA2)/ZA2  +  2/(exp(Z)*Z)  -  2./(exp(Y.*Z)*Z)  +  (2*S)/(exp(Z)*Z)  - 
(2*S)./(exp(Y.*Z)*Z)  -  (2,*Y)/(exp(Z)*Z)  +  (2.*Y)/(exp(Y.*Z)*Z) ... 

-  (2*S.*Y)/(exp(Z)*Z)  +  (2*S.*Y)/(exp(Y.*Z)*Z)  -  Z/exp(Z)  -  (S*Z)/exp(Z)  +  (Y.*Z)/exp(Z)  + 
(S.*Y.*Z)/exp(Z)  +(Y.A2*Z)/exp(Z)  +  (S.*Y A2*Z)/exp(Z)  -  (Y  A3*Z)/exp(Z) ... 

-  (S.*Y.A3*Z)/exp(Z)  +  ZA2/(4*exp(2*Z))  +  (S*ZA2)/(2*exp(2*Z))  +  (SA2*ZA2)/(4*exp(2*Z))  - 
(Y  A2*ZA2)/(2*exp(2*Z))  -  (S.*Y  A2*ZA2)/exp(2*Z)  ... 

-  (SA2.*Y.A2*ZA2)/(2*exp(2*Z))  +  (Y.A4*ZA2)/(4*exp(2*Z))  +  (S.*Y  A4*ZA2)/(2*exp(2*Z))  + 
(SA2.*Y.A4*ZA2)/(4*exp(2*Z))  -  (7*S*(S_v2))/(2*exp(3*Z)) ... 

+  (2*S*(S_v2))/exp(2*Z)  +  (S*(S_v2))/exp(Z)  -  (exp(-Z  -  2.*Y.*Z)*S*(S_v2))/2  - 

(5*SA2*(S_v2))/exp(3*Z)  +  (2*SA2*(S_v2))/exp(2*Z)  -  (SA2*(S_v2))/(2*exp(Z)) ... 

-  (exp(-Z  -  2.*Y.*Z)*SA2*(S_v2))/2  -  (2*S.*Y.*(S_v2))/exp(2*Z)  -  (3*S.*Y.*(S_v2))/exp(Z)  + 
(3*SA2.*Y.*(S_v2))/(2*exp(3*Z))  -  (2*SA2.*Y.*(S_v2))/exp(2*Z) ... 

+  (SA2.*Y.*(S_v2))/(2*exp(Z))  +  (13*S.*Y  A2*(S_v2))/(2*exp(3*Z))  -  (4*S.*Y  A2*(S_v2))/exp(2*Z)  + 
(3*S.*Y ,A2*(S_v2))/exp(Z)  +  (exp(-Z  -  2,*Y.*Z)*S.*Y ,A2*(S_v2))/2  ... 

+  (5*SA2.*Y.A2*(S_v2))/exp(3*Z)  -  (2*SA2.*Y.A2*(S_v2))/exp(2*Z)  +  (SA2.*Y ,A2*(S_v2))/(2*exp(Z)) 
+  (exp(-Z  -  2.*Y.*Z)*SA2.*Y.A2*(S_v2))/2  -  (3*S.*Y ,A3*(S_v2))/exp(3*Z) ... 

+  (4*S.*Y.A3*(S_v2))/exp(2*Z)  -  (S.*Y.A3*(S_v2))/exp(Z)  -  (3*SA2.*Y  A3*(S_v2))/(2*exp(3*Z))  + 
(2*SA2.*Y.A3*(S_v2))/exp(2*Z)  -  (SA2.*Y  A3*(S_v2))/(2*exp(Z)) ... 

+  (3*S*(S_v2))/(exp(4*Z)*ZA3)  -  (4*S*(S_v2))/(exp(3*Z)*ZA3)  +  (S*(S_v2))/(exp(2*Z)*ZA3)  + 
(S*(S_v2))./(exp(2.*Y.*Z)*ZA3)  +  (3*exp(-2*Z  -  2.*Y.*Z)*S*(S_v2))/ZA3  ... 

-  (4*exp(-Z  -  2.*Y.*Z)*S*(S_v2))/ZA3  -  (6*exp(-3*Z  -  Y.*Z)*S*(S_v2))/ZA3  +  (8*exp(-2*Z  - 
Y.*Z)*S*(S_v2))/ZA3  -  (2*exp(-Z  -  Y.*Z)*S*(S_v2))/ZA3  ... 

+  (3*SA2*(S_v2))/(exp(4*Z)*ZA3)  -  (4*SA2*(S_v2))/(exp(3*Z)*ZA3)  +  (SA2*(S_v2))/(exp(2*Z)*ZA3)  + 
(SA2*(S_v2))./(exp(2.*Y.*Z)*ZA3)  +  (3*exp(-2*Z  -  2.*Y.*Z)*SA2*(S_v2))/ZA3  ... 

-  (4*exp(-Z  -  2.*Y.*Z)*SA2*(S_v2))/ZA3  -  (6*exp(-3*Z  -  Y.*Z)*SA2*(S_v2))/ZA3  +  (8*exp(-2*Z  - 
Y.*Z)*SA2*(S_v2))/ZA3  -  (2*exp(-Z  -  Y.*Z)*SA2*(S_v2))/ZA3  ... 

+  (1  l*S*(S_v2))/(exp(3*Z)*ZA2)  -  (8*S*(S_v2))/(exp(2*Z)*ZA2)  +  (2*S*(S_v2))/(exp(Z)*ZA2)  - 
(S*(S_v2))./(exp(3.*Y.*Z)*ZA2)  -  (2*S*(S_v2))./(exp(Y.*Z)*ZA2) ... 

-  (exp(-Z  -  2.*Y.*Z)*S*(S_v2))/ZA2  -  (9*exp(-2*Z  -  Y.*Z)*S*(S_v2))/ZA2  +  (8*exp(-Z  - 
Y.*Z)*S*(S_v2))/ZA2  +  (8*SA2*(S_v2))/(exp(3*Z)*ZA2);  ... 

-  (4*SA2*(S_v2))/(exp(2*Z)*ZA2)  +  (SA2*(S_v2))/(exp(Z)*ZA2)  -  (SA2*(S_v2))./(exp(3.*Y.*Z)*ZA2)  - 
(SA2*(S_v2))./(exp(Y.*Z)*ZA2)  -  (exp(-Z  -  2,*Y.*Z)*SA2*(S_v2))/ZA2  ... 
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-  (6*exp(-2*Z  -  Y.*Z)*SA2*(S_v2))/ZA2  +  (4*exp(-Z  -  Y.*Z)*SA2*(S_v2))/ZA2  - 

(6*S.*Y.*(S_v2))/(exp(3*Z)*ZA2)  +  (8*S.*Y.*(S_v2))/(exp(2*Z)*ZA2) ... 

-  (2*S.*Y.*(S_v2))/(exp(Z)*ZA2)  +  (2*S.*Y.*(S_v2))/(exp(Y.*Z)*ZA2)  +  (6*exp(-2*Z  - 

Y.*Z)*S.*Y.*(S_v2))/ZA2  -  (8*exp(-Z  -  Y.*Z)*S.*Y.*(S_v2))/ZA2  ... 

(3*SA2.*Y.*(S_v2))/(exp(3*Z)*ZA2)  +  (4*SA2.*Y.*(S_v2))/(exp(2*Z)*ZA2) 

(SA2.*Y.*(S_v2))/(exp(Z)*ZA2)  +  (SA2.*Y.*(S_v2))/(exp(Y.*Z)*ZA2) ... 

+  (3*exp(-2*Z  -  Y.*Z)*SA2.*Y.*(S_v2))/ZA2  -  (4*exp(-Z  -  Y.*Z)*SA2.*Y.*(S_v2))/ZA2  +  (S*(S_v2))/Z 
+  (2*S*(S_v2))/(exp(3*Z)*Z)  +  (9*S*(S_v2))/(exp(2*Z)*Z)... 

-  (4*S*(S_v2))/(exp(Z)*Z)  +  (S*(S_v2))./(exp(2.*Y.*Z)*Z)  -  (2*exp(-2*Z  -  Y.*Z)*S*(S_v2))/Z  + 
(exp(-Z  -  Y.*Z)*S*(S_v2))/Z  +  (2*SA2*(S_v2))/(exp(3*Z)*Z) ... 

+  (SA2*(S_v2))/(exp(2*Z)*Z)  -  (2*exp(-2*Z  -  Y.*Z)*SA2*(S_v2))/Z  -  (exp(-Z  -  Y.*Z)*SA2*(S_v2))/Z  - 
(2*S.*Y.*(S_v2))/Z  -  (13*S.*Y.*(S_v2))/(exp(2*Z)*Z)  ... 

+  (8*S.*Y.*(S_v2))/(exp(Z)*Z)  -  (S.*Y.*(S_v2))./(exp(2.*Y.*Z)*Z) 

(2*SA2.*Y.*(S_v2))/(exp(2*Z)*Z)  +  (2*exp(-Z  -  Y.*Z)*SA2.*Y.*(S_v2))/Z  +  (S.*Y.A2*(S_v2))/Z  ... 

+  (3*S.*Y.A2*(S_v2))/(exp(4*Z)*Z)  -  (4*S.*Y  A2*(S_v2))/(exp(3*Z)*Z)  + 

(4*S.*Y.A2*(S_v2))/(exp(2*Z)*Z)  -  (4*S.*Y  A2*(S_v2))/(exp(Z)*Z) ... 

-  (3*exp(-3*Z  -  Y.*Z)*S.*Y.A2*(S_v2))/Z  +  (4*exp(-2*Z  -  Y.*Z)*S.*Y  A2*(S_v2))/Z  -  (exp(-Z  - 
Y.*Z)*S.*Y.A2*(S_v2))/Z  +  (3*SA2.*Y.A2*(S_v2))/(exp(4*Z)*Z) ... 

-  (4*SA2.*Y.A2*(S_v2))/(exp(3*Z)*Z)  +  (SA2.*Y  A2*(S_v2))/(exp(2*Z)*Z)  -  (3*exp(-3*Z  - 

Y.*Z)*SA2.*Y.A2*(S_v2))/Z  +  (4*exp(-2*Z  -  Y.*Z)*SA2.*Y  A2*(S_v2))/Z  ... 

-  (exp(-Z  -  Y.*Z)*SA2.*Y.A2*(S_v2))/Z  -  (3*S*Z*(S_v2))/(4*exp(4*Z))  -  (7*S*Z*(S_v2))/(4*exp(2*Z)) 
-  (3*SA2*Z*(S_v2))/(4*exp(4*Z))  -  (3*SA2*Z*(S_v2))/(4*exp(2*Z)) ... 

+  (2*S.*Y.*Z*(S_v2))/exp(2*Z)  +  (SA2.*Y.*Z*(S_v2))/exp(2*Z)  +  (S.*Y  ,A2*Z*(S_v2))/exp(3*Z)  + 
(3*S.*Y ,A2*Z*(S_v2))/(2*exp(2*Z))  +  (SA2.*Y ,A2*Z*(S_v2))/exp(3*Z) ... 

+  (SA2.*Y.A2*Z*(S_v2))/(2*exp(2*Z))  -  (2*S.*Y  ,A3*Z*(S_v2))/exp(2*Z) 

(SA2.*Y.A3*Z*(S_v2))/exp(2*Z)  +  (3*S.*Y.A4*Z*(S_v2))/(4*exp(4*Z))  -  (S.*Y.A4*Z*(S_v2))/exp(3*Z) 

+  (S.*Y.A4*Z*(S_v2))/(4*exp(2*Z))  +  (3*SA2.*Y.A4*Z*(S_v2))/(4*exp(4*Z)) 

(SA2.*Y.A4*Z*(S_v2))/exp(3*Z)  +  (SA2.*Y.A4*Z*(S_v2))/(4*exp(2*Z))  +  (S*ZA2*(S_v2))/(2*exp(3*Z)) 

+  (SA2*ZA2*(S_v2))/(2*exp(3*Z))  -  (S.*Y  ,A2*ZA2*(S_v2))/exp(3*Z) 

(SA2.*Y.A2*ZA2*(S_v2))/exp(3*Z)  +  (S.*Y.A4*ZA2*(S_v2))/(2*exp(3*Z)) ... 

+  (SA2.*Y.A4*ZA2*(S_v2))/(2*exp(3*Z))  +  (9*SA2*(S_v2)A2)/(16*exp(6*Z)) 

(23*SA2*(S_v2)A2)/(8*exp(4*Z))  +  (2*SA2*(S_v2)A2)/exp(3*Z)  +  (SA2*(S_v2)A2)/(16*exp(2*Z))  ... 

(exp(-2*Z  -  2,*Y.*Z)*SA2*(S_v2)A2)/2  -  exp(-3*Z  -  Y.*Z)*SA2*(S_v2)A2 

(2*SA2.*Y.*(S_v2)A2)/exp(3*Z)  -  (SA2.*Y.*(S_v2)A2)/exp(2*Z)  +  (9*SA2.*Y  A2*(S_v2)A2)/(8*exp(6*Z)) 

(3*SA2.*Y.A2*(S_v2)A2)/(2*exp(5*Z))  +  (1  l*SA2.*Y.A2*(S_v2)A2)/(2*exp(4*Z)) 

(7*SA2.*Y  A2*(S_v2)A2)/(2*exp(3*Z))  +  (15*SA2.*Y ,A2*(S_v2)A2)/(8*exp(2*Z)) ... 

+  (exp(-2*Z  -  2.*Y.*Z)*SA2.*Y.A2*(S_v2)A2)/2  +  exp(-3*Z  -  Y.*Z)*SA2.*Y  A2*(S_v2)A2  - 

(3*SA2.*Y.A3*(S_v2)A2)/exp(4*Z)  +  (4*SA2.*Y.A3*(S_v2)A2)/exp(3*Z) ... 

(SA2.*Y.A3*(S_v2)A2)/exp(2*Z)  +  (9*SA2.*Y.A4*(S_v2)A2)/(16*exp(6*Z)) 

(3*SA2.*Y.A4*(S_v2)A2)/(2*exp(5*Z))  +  (1  l*SA2.*Y.A4*(S_v2)A2)/(8*exp(4*Z)) ... 

(SA2.*Y.A4*(S_v2)A2)/(2*exp(3*Z))  +  (SA2.*Y.A4*(S_v2)A2)/(16*exp(2*Z))  + 

(9*SA2*(S_v2)A2)/(4*exp(6*Z)*ZA4)  -  (6*SA2*(S_v2)A2)/(exp(5*Z)*ZA4) ... 

+  (1  l*SA2*(S_v2)A2)/(2*exp(4*Z)*ZA4)  -  (2*SA2*(S_v2)A2)/(exp(3*Z)*ZA4)  + 

(SA2*(S_v2)A2)/(4*exp(2*Z)*ZA4)  +  (SA2*(S_v2)A2)./(4*exp(2.*Y.*Z)*ZA4)  ... 

+  (9*exp(-4*Z  -  2.*Y.*Z)*SA2*(S_v2)A2)/(4*ZA4)  -  (6*exp(-3*Z  -  2.*Y.*Z)*SA2*(S_v2)A2)/ZA4  + 
(ll*exp(-2*Z  -  2.*Y.*Z)*SA2*(S_v2)A2)/(2*ZA4)  ... 

-  (2*exp(-Z  -  2.*Y.*Z)*SA2*(S_v2)A2)/ZA4  -  (9*exp(-5*Z  -  Y.*Z)*SA2*(S_v2)A2)/(2*ZA4)  +  (12*exp(- 
4*Z  -  Y.*Z)*SA2*(S_v2)A2)/ZA4  -  (ll*exp(-3*Z  -  Y.*Z)*SA2*(S_v2)A2)/ZA4  ... 

+  (4*exp(-2*Z  -  Y.*Z)*SA2*(S_v2)A2)/ZA4  -  (exp(-Z  -  Y.*Z)*SA2*(S_v2)A2)/(2*ZA4)  + 

(12*SA2*(S_v2)A2)/(exp(5*Z)*ZA3)  -  (22*SA2*(S_v2)A2)/(exp(4*Z)*ZA3) ... 

+  (27*SA2*(S_v2)A2)/(2*exp(3*Z)*ZA3)  -  (4*SA2*(S_v2)A2)/(exp(2*Z)*ZA3)  + 

(SA2*(S_v2)A2)/(2*exp(Z)*ZA3)  -  (SA2*(S_v2)A2)./(2*exp(3.*Y.*Z)*ZA3) ... 
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-  (SA2*(S_v2)A2)./(2*exp(Y.*Z)*ZA3)  -  (3*exp(-2*Z  -  3.*Y.*Z)*SA2*(S_v2)A2)/(2*ZA3)  +  (2*exp(-Z  - 
3.*Y.*Z)*SA2*(S_v2)A2)/ZA3  -  (3*exp(-3*Z  -  2.*Y.*Z)*SA2*(S_v2)A2)/(2*ZA3)  ... 

+  (2*exp(-2*Z  -  2.*Y.*Z)*SA2*(S_v2)A2)/ZA3  -  (exp(-Z  -  2.*Y.*Z)*SA2*(S_v2)A2)/(2*ZA3)  -  (9*exp(- 
4*Z  -  Y.*Z)*SA2*(S_v2)A2)/ZA3  +  (18*exp(-3*Z  -  Y.*Z)*SA2*(S_v2)A2)/ZA3  ... 

-  (25*exp(-2*Z  -  Y.*Z)*SA2*(S_v2)A2)/(2*ZA3)  +  (4*exp(-Z  -  Y.*Z)*SA2*(S_v2)A2)/ZA3  - 
(9*SA2.*Y.*(S_v2)A2)/(2*exp(5*Z)*ZA3)  +  (12*SA2.*Y.*(S_v2)A2)/(exp(4*Z)*ZA3)  ... 

(1  l*SA2.*Y.*(S_v2)A2)/(exp(3*Z)*ZA3)  +  (4*SA2.*Y.*(S_v2)A2)/(exp(2*Z)*ZA3) 

(SA2.*Y.*(S_v2)A2)/(2*exp(Z)*ZA3)  +  (SA2.*Y.*(S_v2)A2)/(2*exp(Y.*Z)*ZA3) ... 

+  (9*exp(-4*Z  -  Y.*Z)*SA2.*Y.*(S_v2)A2)/(2*ZA3)  -  (12*exp(-3*Z  -  Y.*Z)*SA2.*Y.*(S_v2)A2)/ZA3  + 
(ll*exp(-2*Z  -  Y.*Z)*SA2.*Y.*(S_v2)A2)/ZA3  ... 

(4*exp(-Z  -  Y.*Z)*SA2.*Y.*(S_v2)A2)/ZA3  +  (SA2*(S_v2)A2)/(4*ZA2)  + 

(9*SA2*(S_v2)A2)/(4*exp(6*Z)*ZA2)  -  (3*SA2*(S_v2)A2)/(exp(5*Z)*ZA2)  + 

(19*SA2*(S_v2)A2)/(exp(4*Z)*ZA2)  ... 

( 1 9*SA2*(S_v2)A2)/(exp(3  *Z)*ZA2)  +  (35*SA2*(S_v2)A2)/(4*exp(2*Z)*ZA2) 

(2*SA2*(S_v2)A2)/(exp(Z)*ZA2)  +  (SA2*(S_v2)A2)./(4*exp(4.*Y.*Z)*ZA2) ... 

+  (SA2*(S_v2)A2)./(2*exp(2.*Y.*Z)*ZA2)  +  (exp(-Z  -  3.*Y.*Z)*SA2*(S_v2)A2)/ZA2  +  (5*exp(-2*Z  - 
2.*Y.*Z)*SA2*(S_v2)A2)/ZA2  -  (2*exp(-Z  -  2.*Y.*Z)*SA2*(S_v2)A2)/ZA2  ... 

-  (9*exp(-5*Z  -  Y.*Z)*SA2*(S_v2)A2)/(4*ZA2)  +  (3*exp(-4*Z  -  Y.*Z)*SA2*(S_v2)A2)/ZA2  +  (5*exp(- 
3*Z  -  Y.*Z)*SA2*(S_v2)A2)/ZA2  -  (exp(-2*Z  -  Y.*Z)*SA2*(S_v2)A2)/ZA2  ... 

+  (exp(-Z  -  Y.*Z)*SA2*(S_v2)A2)/(4*ZA2)  -  (SA2.*Y.*(S_v2)A2)/(2*ZA2) 

(15*SA2.*Y.*(S_v2)A2)/(exp(4*Z)*ZA2)  +  (26*SA2.*Y.*(S_v2)A2)/(exp(3*Z)*ZA2) ... 

(29*SA2.*Y.*(S_v2)A2)/(2*exp(2*Z)*ZA2)  +  (4*SA2.*Y.*(S_v2)A2)/(exp(Z)*ZA2) 

(SA2.*Y.*(S_v2)A2)./(2*exp(2.*Y.*Z)*ZA2)  -  (3*exp(-2*Z  -  2,*Y.*Z)*SA2.*Y.*(S_v2)A2)/(2*ZA2) ... 

+  (2*exp(-Z  -  2.*Y.*Z)*SA2.*Y.*(S_v2)A2)/ZA2  +  (SA2.*Y  ,A2*(S_v2)A2)/(4*ZA2)  + 

(9*SA2.*Y.A2*(S_v2)A2)/(4*exp(6*Z)*ZA2)  -  (6*SA2.*Y ,A2*(S_v2)A2)/(exp(5*Z)*ZA2)  ... 

+  (31*SA2.*Y.A2*(S_v2)A2)/(4*exp(4*Z)*ZA2)  -  (8*SA2.*Y  ,A2*(S_v2)A2)/(exp(3*Z)*ZA2)  + 

(23*SA2.*Y.A2*(S_v2)A2)/(4*exp(2*Z)*ZA2)  -  (2*SA2.*Y.A2*(S_v2)A2)/(exp(Z)*ZA2) ... 

-  (9*exp(-5*Z  -  Y.*Z)*SA2.*Y.A2*(S_v2)A2)/(4*ZA2)  +  (6*exp(-4*Z  -  Y.*Z)*SA2.*Y ,A2*(S_v2)A2)/ZA2 
-  (ll*exp(-3*Z  -  Y.*Z)*SA2.*Y.A2*(S_v2)A2)/(2*ZA2) ... 

+  (2*exp(-2*Z  -  Y.*Z)*SA2.*Y.A2*(S_v2)A2)/ZA2  -  (exp(-Z  -  Y.*Z)*SA2.*Y  A2*(S_v2)A2)/(4*ZA2)  + 
(9*SA2*(S_v2)A2)/(2*exp(5*Z)*Z)  -  (SA2*(S_v2)A2)/(exp(4*Z)*Z) ... 

+  (25*SA2*(S_v2)A2)/(4*exp(3*Z)*Z)  -  (3*SA2*(S_v2)A2)/(exp(2*Z)*Z)  + 

(3*SA2*(S_v2)A2)/(4*exp(Z)*Z)  +  (3*exp(-3*Z  -  2.*Y.*Z)*SA2*(S_v2)A2)/(4*Z) ... 

+  (3*exp(-Z  -  2,*Y.*Z)*SA2*(S_v2)A2)/(4*Z)  +  (3*exp(-4*Z  -  Y.*Z)*SA2*(S_v2)A2)/Z  -  (2*exp(-3*Z  - 
Y.*Z)*SA2*(S_v2)A2)/Z  +  (2*exp(-2*Z  -  Y.*Z)*SA2*(S_v2)A2)/Z  ... 

(9*SA2.*Y.*(S_v2)A2)/(4*exp(5*Z)*Z)  +  (3*SA2.*Y.*(S_v2)A2)/(exp(4*Z)*Z) 

(1  l*SA2.*Y.*(S_v2)A2)/(exp(3*Z)*Z)  +  (7*SA2.*Y.*(S_v2)A2)/(exp(2*Z)*Z) ... 

-  (7*SA2.*Y.*(S_v2)A2)/(4*exp(Z)*Z)  -  (exp(-Z  -  2,*Y.*Z)*SA2.*Y.*(S_v2)A2)/Z  -  (2*exp(-2*Z  - 
Y.*Z)*SA2.*Y.*(S_v2)A2)/Z  +  (15*SA2.*Y ,A2*(S_v2)A2)/(2*exp(5*Z)*Z) ... 

(13*SA2.*Y.A2*(S_v2)A2)/(exp(4*Z)*Z)  +  (41*SA2.*Y  ,A2*(S_v2)A2)/(4*exp(3*Z)*Z) 

(6*SA2.*Y.A2*(S_v2)A2)/(exp(2*Z)*Z)  +  (5*SA2.*Y  A2*(S_v2)A2)/(4*exp(Z)*Z)  ... 

+  (3*exp(-3*Z  -  2.*Y.*Z)*SA2.*Y.A2*(S_v2)A2)/(4*Z)  -  (exp(-2*Z  -  2.*Y.*Z)*SA2.*Y  A2*(S_v2)A2)/Z 
+  (exp(-Z  -  2.*Y.*Z)*SA2.*Y.A2*(S_v2)A2)/(4*Z)  ... 

(9*SA2.*Y.A3*(S_v2)A2)/(4*exp(5*Z)*Z)  +  (6*SA2.*Y  A3*(S_v2)A2)/(exp(4*Z)*Z) 

(1  l*SA2.*Y.A3*(S_v2)A2)/(2*exp(3*Z)*Z)  +  (2*SA2.*Y  A3*(S_v2)A2)/(exp(2*Z)*Z) ... 

(SA2.*Y.A3*(S_v2)A2)/(4*exp(Z)*Z)  -  (3*SA2*Z*(S_v2)A2)/(4*exp(5*Z)) 

(3*SA2*Z*(S_v2)A2)/(4*exp(3*Z))  +  (SA2.*Y.*Z*(S_v2)A2)/exp(3*Z)  + 

(SA2.*Y.A2*Z*(S_v2)A2)/exp(4*Z) ... 

+  (SA2.*Y.A2*Z*(S_v2)A2)/(2*exp(3*Z))  -  (SA2.*Y  ,A3*Z*(S_v2)A2)/exp(3*Z)  + 

(3*SA2.*Y.A4*Z*(S_v2)A2)/(4*exp(5*Z))  -  (SA2.*Y.A4*Z*(S_v2)A2)/exp(4*Z)  ... 

+  (SA2.*Y.A4*Z*(S_v2)A2)/(4*exp(3*Z))  +  (SA2*ZA2*(S_v2)A2)/(4*exp(4*Z)) 

(SA2.*Y.A2*ZA2*(S_v2)A2)/(2*exp(4*Z))  +  (SA2.*Y.A4*ZA2*(S_v2)A2)/(4*exp(4*Z)); 

Ns2=Nf+Nc+Ny2; 

Phi2=Nf./[Nc+Ny2]; 

Be2=l./[1+Phi2]; 
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Gf2=Nf./Ns2; 

Gh2=[Nc+Ny2]./Ns2; 

Nh2=Nc+Ny2; 


S_v3=3; 

Ny3=l  -  exp(-2*Z)  +  exp(-Z  -  Y.*Z)  -  (2*S)/exp(2*Z)  +  2*exp(-Z  -  Y.*Z)*S  -  SA2/exp(2*Z)  +  exp(-Z  - 
Y.*Z)*SA2  -  2.*Y  +  Y.A2  +  Y.A2/exp(2*Z)  -  exp(-Z  -  Y.*Z).*Y.A2  ... 

+  (2*S.*Y.A2)/exp(2*Z)  -  2*exp(-Z  -  Y.*Z)*S.*Y.A2  +  (SA2.*Y  A2)/exp(2*Z)  -  exp(-Z  - 
Y.*Z)*SA2.*Y.A2  +  l/(exp(2*Z)*ZA2)  +  l./(exp(2.*Y.*Z)*ZA2) ... 

-  (2*exp(-Z  -  Y.*Z))/ZA2  +  (2*S)/(exp(2*Z)*ZA2)  +  (2*S)./(exp(2.*Y.*Z)*ZA2)  -  (4*exp(-Z  - 
Y.*Z)*S)/ZA2  +  SA2/(exp(2*Z)*ZA2)  +  SA2./(exp(2.*Y.*Z)*ZA2)  ... 

-  (2*exp(-Z  -  Y.*Z)*SA2)/ZA2  +  2/(exp(Z)*Z)  -  2,/(exp(Y.*Z)*Z)  +  (2*S)/(exp(Z)*Z)  - 
(2*S)./(exp(Y.*Z)*Z)  -  (2,*Y)/(exp(Z)*Z)  +  (2.*Y)/(exp(Y.*Z)*Z) ... 

-  (2*S.*Y)/(exp(Z)*Z)  +  (2*S.*Y)/(exp(Y.*Z)*Z)  -  Z/exp(Z)  -  (S*Z)/exp(Z)  +  (Y.*Z)/exp(Z)  + 
(S.*Y.*Z)/exp(Z)  +(Y.A2*Z)/exp(Z)  +  (S.*Y.A2*Z)/exp(Z)  -  (Y.A3*Z)/exp(Z) ... 

-  (S.*Y.A3*Z)/exp(Z)  +  ZA2/(4*exp(2*Z))  +  (S*ZA2)/(2*exp(2*Z))  +  (SA2*ZA2)/(4*exp(2*Z))  - 
(Y  A2*ZA2)/(2*exp(2*Z))  -  (S.*Y  A2*ZA2)/exp(2*Z)  ... 

-  (SA2.*Y.A2*ZA2)/(2*exp(2*Z))  +  (Y.A4*ZA2)/(4*exp(2*Z))  +  (S.*Y.A4*ZA2)/(2*exp(2*Z))  + 
(SA2.*Y.A4*ZA2)/(4*exp(2*Z))  -  (7*S*(S_v3))/(2*exp(3*Z)) ... 

+  (2*S*(S_v3))/exp(2*Z)  +  (S*(S_v3))/exp(Z)  -  (exp(-Z  -  2.*Y.*Z)*S*(S_v3))/2  - 

(5*SA2*(S_v3))/exp(3*Z)  +  (2*SA2*(S_v3))/exp(2*Z)  -  (SA2*(S_v3))/(2*exp(Z)) ... 

-  (exp(-Z  -  2.*Y.*Z)*SA2*(S_v3))/2  -  (2*S.*Y.*(S_v3))/exp(2*Z)  -  (3*S.*Y.*(S_v3))/exp(Z)  + 
(3*SA2.*Y.*(S_v3))/(2*exp(3*Z))  -  (2*SA2.*Y.*(S_v3))/exp(2*Z) ... 

+  (SA2.*Y.*(S_v3))/(2*exp(Z))  +  (13*S.*Y  A2*(S_v3))/(2*exp(3*Z))  -  (4*S.*Y  A2*(S_v3))/exp(2*Z)  + 
(3*S.*Y.A2*(S_v3))/exp(Z)  +  (exp(-Z  -  2.*Y.*Z)*S.*Y.A2*(S_v3))/2  ... 

+  (5*SA2.*Y.A2*(S_v3))/exp(3*Z)  -  (2*SA2.*Y  A2*(S_v3))/exp(2*Z)  +  (SA2.*Y.A2*(S_v3))/(2*exp(Z)) 
+  (exp(-Z  -  2.*Y.*Z)*SA2.*Y.A2*(S_v3))/2  -  (3*S.*Y.A3*(S_v3))/exp(3*Z) ... 

+  (4*S.*Y.A3*(S_v3))/exp(2*Z)  -  (S.*Y  A3*(S_v3))/exp(Z)  -  (3*SA2.*Y.A3*(S_v3))/(2*exp(3*Z))  + 
(2*SA2.*Y  A3*(S_v3))/exp(2*Z)  -  (SA2.*Y  A3*(S_v3))/(2*exp(Z)) ... 

+  (3*S*(S_v3))/(exp(4*Z)*ZA3)  -  (4*S*(S_v3))/(exp(3*Z)*ZA3)  +  (S*(S_v3))/(exp(2*Z)*ZA3)  + 
(S*(S_v3))./(exp(2.*Y.*Z)*ZA3)  +  (3*exp(-2*Z  -  2.*Y.*Z)*S*(S_v3))/ZA3  ... 

-  (4*exp(-Z  -  2.*Y.*Z)*S*(S_v3))/ZA3  -  (6*exp(-3*Z  -  Y.*Z)*S*(S_v3))/ZA3  +  (8*exp(-2*Z  - 
Y.*Z)*S*(S_v3))/ZA3  -  (2*exp(-Z  -  Y.*Z)*S*(S_v3))/ZA3  ... 

+  (3*SA2*(S_v3))/(exp(4*Z)*ZA3)  -  (4*SA2*(S_v3))/(exp(3*Z)*ZA3)  +  (SA2*(S_v3))/(exp(2*Z)*ZA3)  + 
(SA2*(S_v3))./(exp(2.*Y.*Z)*ZA3)  +  (3*exp(-2*Z  -  2.*Y.*Z)*SA2*(S_v3))/ZA3  ... 

-  (4*exp(-Z  -  2.*Y.*Z)*SA2*(S_v3))/ZA3  -  (6*exp(-3*Z  -  Y.*Z)*SA2*(S_v3))/ZA3  +  (8*exp(-2*Z  - 
Y.*Z)*SA2*(S_v3))/ZA3  -  (2*exp(-Z  -  Y.*Z)*SA2*(S_v3))/ZA3  ... 

+  (1  l*S*(S_v3))/(exp(3*Z)*ZA2)  -  (8*S*(S_v3))/(exp(2*Z)*ZA2)  +  (2*S*(S_v3))/(exp(Z)*ZA2)  - 
(S*(S_v3))./(exp(3.*Y.*Z)*ZA2)  -  (2*S*(S_v3))./(exp(Y.*Z)*ZA2) ... 

-  (exp(-Z  -  2.*Y.*Z)*S*(S_v3))/ZA2  -  (9*exp(-2*Z  -  Y.*Z)*S*(S_v3))/ZA2  +  (8*exp(-Z  - 
Y.*Z)*S*(S_v3))/ZA2  +  (8*SA2*(S_v3))/(exp(3*Z)*ZA2);  ... 

-  (4*SA2*(S_v3))/(exp(2*Z)*ZA2)  +  (SA2*(S_v3))/(exp(Z)*ZA2)  -  (SA2*(S_v3))./(exp(3.*Y.*Z)*ZA2)  - 
(SA2*(S_v3))./(exp(Y.*Z)*ZA2)  -  (exp(-Z  -  2,*Y.*Z)*SA2*(S_v3))/ZA2  ... 

-  (6*exp(-2*Z  -  Y.*Z)*SA2*(S_v3))/ZA2  +  (4*exp(-Z  -  Y.*Z)*SA2*(S_v3))/ZA2  - 

(6*S.*Y.*(S_v3))/(exp(3*Z)*ZA2)  +  (8*S.*Y.*(S_v3))/(exp(2*Z)*ZA2) ... 

-  (2*S.*Y.*(S_v3))/(exp(Z)*ZA2)  +  (2*S.*Y.*(S_v3))/(exp(Y.*Z)*ZA2)  +  (6*exp(-2*Z  - 

Y.*Z)*S.*Y.*(S_v3))/ZA2  -  (8*exp(-Z  -  Y.*Z)*S.*Y.*(S_v3))/ZA2  ... 

(3*SA2.*Y.*(S_v3))/(exp(3*Z)*ZA2)  +  (4*SA2.*Y.*(S_v3))/(exp(2*Z)*ZA2) 

(SA2.*Y.*(S_v3))/(exp(Z)*ZA2)  +  (SA2.*Y.*(S_v3))/(exp(Y.*Z)*ZA2) ... 

+  (3*exp(-2*Z  -  Y.*Z)*SA2.*Y.*(S_v3))/ZA2  -  (4*exp(-Z  -  Y.*Z)*SA2.*Y.*(S_v3))/ZA2  +  (S*(S_v3))/Z 
+  (2*S*(S_v3))/(exp(3*Z)*Z)  +  (9*S*(S_v3))/(exp(2*Z)*Z)... 

-  (4*S*(S_v3))/(exp(Z)*Z)  +  (S*(S_v3))./(exp(2.*Y.*Z)*Z)  -  (2*exp(-2*Z  -  Y.*Z)*S*(S_v3))/Z  + 
(exp(-Z  -  Y.*Z)*S*(S_v3))/Z  +  (2*SA2*(S_v3))/(exp(3*Z)*Z) ... 

+  (SA2*(S_v3))/(exp(2*Z)*Z)  -  (2*exp(-2*Z  -  Y.*Z)*SA2*(S_v3))/Z  -  (exp(-Z  -  Y.*Z)*SA2*(S_v3))/Z  - 
(2*S.*Y.*(S_v3))/Z  -  (13*S.*Y.*(S_v3))/(exp(2*Z)*Z) ... 
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+  (8*S.*Y.*(S_v3))/(exp(Z)*Z)  -  (S.*Y.*(S_v3))./(exp(2.*Y.*Z)*Z) 

(2*SA2.*Y.*(S_v3))/(exp(2*Z)*Z)  +  (2*exp(-Z  -  Y.*Z)*SA2.*Y.*(S_v3))/Z  +  (S.*Y  A2*(S_v3))/Z  ... 

+  (3*S.*Y.A2*(S_v3))/(exp(4*Z)*Z)  -  (4*S.*Y  A2*(S_v3))/(exp(3*Z)*Z)  + 

(4*S.*Y.A2*(S_v3))/(exp(2*Z)*Z)  -  (4*S.*Y  A2*(S_v3))/(exp(Z)*Z) ... 

-  (3*exp(-3*Z  -  Y.*Z)*S.*Y.A2*(S_v3))/Z  +  (4*exp(-2*Z  -  Y.*Z)*S.*Y  A2*(S_v3))/Z  -  (exp(-Z  - 
Y.*Z)*S.*Y.A2*(S_v3))/Z  +  (3*SA2.*Y.A2*(S_v3))/(exp(4*Z)*Z) ... 

-  (4*SA2.*Y.A2*(S_v3))/(exp(3*Z)*Z)  +  (SA2.*Y  A2*(S_v3))/(exp(2*Z)*Z)  -  (3*exp(-3*Z  - 

Y.*Z)*SA2.*Y.A2*(S_v3))/Z  +  (4*exp(-2*Z  -  Y.*Z)*SA2.*Y  A2*(S_v3))/Z  ... 

-  (exp(-Z  -  Y.*Z)*SA2.*Y.A2*(S_v3))/Z  -  (3*S*Z*(S_v3))/(4*exp(4*Z))  -  (7*S*Z*(S_v3))/(4*exp(2*Z)) 
-  (3*SA2*Z*(S_v3))/(4*exp(4*Z))  -  (3*SA2*Z*(S_v3))/(4*exp(2*Z)) ... 

+  (2*S.*Y.*Z*(S_v3))/exp(2*Z)  +  (SA2.*Y.*Z*(S_v3))/exp(2*Z)  +  (S.*Y  A2*Z*(S_v3))/exp(3*Z)  + 
(3*S.*Y  A2*Z*(S_v3))/(2*exp(2*Z))  +  (SA2.*Y  A2*Z*(S_v3))/exp(3*Z) ... 

+  (SA2.*Y.A2*Z*(S_v3))/(2*exp(2*Z))  -  (2*S.*Y  A3*Z*(S_v3))/exp(2*Z) 

(SA2.*Y.A3*Z*(S_v3))/exp(2*Z)  +  (3*S.*Y.A4*Z*(S_v3))/(4*exp(4*Z))  -  (S.*Y.A4*Z*(S_v3))/exp(3*Z) 

+  (S.*Y.A4*Z*(S_v3))/(4*exp(2*Z))  +  (3*SA2.*Y  A4*Z*(S_v3))/(4*exp(4*Z)) 

(SA2.*Y.A4*Z*(S_v3))/exp(3*Z)  +  (SA2.*Y.A4*Z*(S_v3))/(4*exp(2*Z))  +  (S*ZA2*(S_v3))/(2*exp(3*Z)) 

+  (SA2*ZA2*(S_v3))/(2*exp(3*Z))  -  (S.*Y  A2*ZA2*(S_v3))/exp(3*Z) 

(SA2.*Y.A2*ZA2*(S_v3))/exp(3*Z)  +  (S.*Y.A4*ZA2*(S_v3))/(2*exp(3*Z)) ... 

+  (SA2.*Y.A4*ZA2*(S_v3))/(2*exp(3*Z))  +  (9*SA2*(S_v3)A2)/(16*exp(6*Z)) 

(23*SA2*(S_v3)A2)/(8*exp(4*Z))  +  (2*SA2*(S_v3)A2)/exp(3*Z)  +  (SA2*(S_v3)A2)/(16*exp(2*Z)) ... 

(exp(-2*Z  -  2,*Y.*Z)*SA2*(S_v3)A2)/2  -  exp(-3*Z  -  Y.*Z)*SA2*(S_v3)A2 

(2*SA2.*Y.*(S_v3)A2)/exp(3*Z)  -  (SA2.*Y.*(S_v3)A2)/exp(2*Z)  +  (9*SA2.*Y ,A2*(S_v3)A2)/(8*exp(6*Z)) 

(3*SA2.*Y.A2*(S_v3)A2)/(2*exp(5*Z))  +  (1 1*SA2.*Y  ,A2*(S_v3)A2)/(2*exp(4*Z)) 

(7*SA2.*Y  A2*(S_v3)A2)/(2*exp(3*Z))  +  (15*SA2.*Y ,A2*(S_v3)A2)/(8*exp(2*Z)) ... 

+  (exp(-2*Z  -  2.*Y.*Z)*SA2.*Y.A2*(S_v3)A2)/2  +  exp(-3*Z  -  Y.*Z)*SA2.*Y  A2*(S_v3)A2  - 

(3*SA2.*Y.A3*(S_v3)A2)/exp(4*Z)  +  (4*SA2.*Y ,A3*(S_v3)A2)/exp(3*Z) ... 

(SA2.*Y.A3*(S_v3)A2)/exp(2*Z)  +  (9*SA2.*Y.A4*(S_v3)A2)/(16*exp(6*Z)) 

(3*SA2.*Y.A4*(S_v3)A2)/(2*exp(5*Z))  +  (1 1*SA2.*Y ,A4*(S_v3)A2)/(8*exp(4*Z)) ... 

(SA2.*Y.A4*(S_v3)A2)/(2*exp(3*Z))  +  (SA2.*Y.A4*(S_v3)A2)/(16*exp(2*Z))  + 

(9*SA2*(S_v3)A2)/(4*exp(6*Z)*ZA4)  -  (6*SA2*(S_v3)A2)/(exp(5*Z)*ZA4) ... 

+  (1  l*SA2*(S_v3)A2)/(2*exp(4*Z)*ZA4)  -  (2*SA2*(S_v3)A2)/(exp(3*Z)*ZA4)  + 

(SA2*(S_v3)A2)/(4*exp(2*Z)*ZA4)  +  (SA2*(S_v3)A2)./(4*exp(2.*Y.*Z)*ZA4)  ... 

+  (9*exp(-4*Z  -  2.*Y.*Z)*SA2*(S_v3)A2)/(4*ZA4)  -  (6*exp(-3*Z  -  2.*Y.*Z)*SA2*(S_v3)A2)/ZA4  + 
(ll*exp(-2*Z  -  2.*Y.*Z)*SA2*(S_v3)A2)/(2*ZA4)  ... 

-  (2*exp(-Z  -  2.*Y.*Z)*SA2*(S_v3)A2)/ZA4  -  (9*exp(-5*Z  -  Y.*Z)*SA2*(S_v3)A2)/(2*ZA4)  +  (12*exp(- 
4*Z  -  Y.*Z)*SA2*(S_v3)A2)/ZA4  -  (ll*exp(-3*Z  -  Y.*Z)*SA2*(S_v3)A2)/ZA4  ... 

+  (4*exp(-2*Z  -  Y.*Z)*SA2*(S_v3)A2)/ZA4  -  (exp(-Z  -  Y.*Z)*SA2*(S_v3)A2)/(2*ZA4)  + 
(12*SA2*(S_v3)A2)/(exp(5*Z)*ZA3)  -  (22*SA2*(S_v3)A2)/(exp(4*Z)*ZA3) ... 

+  (27*SA2*(S_v3)A2)/(2*exp(3*Z)*ZA3)  -  (4*SA2*(S_v3)A2)/(exp(2*Z)*ZA3)  + 

(SA2*(S_v3)A2)/(2*exp(Z)*ZA3)  -  (SA2*(S_v3)A2)./(2*exp(3.*Y.*Z)*ZA3) ... 

-  (SA2*(S_v3)A2)./(2*exp(Y.*Z)*ZA3)  -  (3*exp(-2*Z  -  3.*Y.*Z)*SA2*(S_v3)A2)/(2*ZA3)  +  (2*exp(-Z  - 
3.*Y.*Z)*SA2*(S_v3)A2)/ZA3  -  (3*exp(-3*Z  -  2.*Y.*Z)*SA2*(S_v3)A2)/(2*ZA3) ... 

+  (2*exp(-2*Z  -  2.*Y.*Z)*SA2*(S_v3)A2)/ZA3  -  (exp(-Z  -  2.*Y.*Z)*SA2*(S_v3)A2)/(2*ZA3)  -  (9*exp(- 
4*Z  -  Y.*Z)*SA2*(S_v3)A2)/ZA3  +  (18*exp(-3*Z  -  Y.*Z)*SA2*(S_v3)A2)/ZA3  ... 

-  (25*exp(-2*Z  -  Y.*Z)*SA2*(S_v3)A2)/(2*ZA3)  +  (4*exp(-Z  -  Y.*Z)*SA2*(S_v3)A2)/ZA3  - 
(9*SA2.*Y.*(S_v3)A2)/(2*exp(5*Z)*ZA3)  +  (12*SA2.*Y.*(S_v3)A2)/(exp(4*Z)*ZA3) ... 

(ll*SA2.*Y.*(S_v3)A2)/(exp(3*Z)*ZA3)  +  (4*SA2.*Y.*(S_v3)A2)/(exp(2*Z)*ZA3) 

(SA2.*Y.*(S_v3)A2)/(2*exp(Z)*ZA3)  +  (SA2.*Y.*(S_v3)A2)/(2*exp(Y.*Z)*ZA3) ... 

+  (9*exp(-4*Z  -  Y.*Z)*SA2.*Y.*(S_v3)A2)/(2*ZA3)  -  (12*exp(-3*Z  -  Y.*Z)*SA2.*Y.*(S_v3)A2)/ZA3  + 
(ll*exp(-2*Z  -  Y.*Z)*SA2.*Y.*(S_v3)A2)/ZA3  ... 

(4*exp(-Z  -  Y.*Z)*SA2.*Y.*(S_v3)A2)/ZA3  +  (SA2*(S_v3)A2)/(4*ZA2)  + 

(9*SA2*(S_v3)A2)/(4*exp(6*Z)*ZA2)  -  (3*SA2*(S_v3)A2)/(exp(5*Z)*ZA2)  + 

(19*SA2*(S_v3)A2)/(exp(4*Z)*ZA2) ... 
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(19*SA2*(S_v3)A2)/(exp(3*Z)*ZA2)  +  (35*SA2*(S_v3)A2)/(4*exp(2*Z)*ZA2) 

(2*SA2*(S_v3)A2)/(exp(Z)*ZA2)  +  (SA2*(S_v3)A2)./(4*exp(4.*Y.*Z)*ZA2) ... 

+  (SA2*(S_v3)A2)./(2*exp(2.*Y.*Z)*ZA2)  +  (exp(-Z  -  3.*Y.*Z)*SA2*(S_v3)A2)/ZA2  +  (5*exp(-2*Z  - 
2,*Y.*Z)*SA2*(S_v3)A2)/ZA2  -  (2*exp(-Z  -  2.*Y.*Z)*SA2*(S_v3)A2)/ZA2  ... 

-  (9*exp(-5*Z  -  Y.*Z)*SA2*(S_v3)A2)/(4*ZA2)  +  (3*exp(-4*Z  -  Y.*Z)*SA2*(S_v3)A2)/ZA2  +  (5*exp(- 
3*Z  -  Y.*Z)*SA2*(S_v3)A2)/ZA2  -  (exp(-2*Z  -  Y.*Z)*SA2*(S_v3)A2)/ZA2  ... 

+  (exp(-Z  -  Y.*Z)*SA2*(S_v3)A2)/(4*ZA2)  -  (SA2.*Y.*(S_v3)A2)/(2*ZA2) 

(15*SA2.*Y.*(S_v3)A2)/(exp(4*Z)*ZA2)  +  (26*SA2.*Y.*(S_v3)A2)/(exp(3*Z)*ZA2) ... 

(29*SA2.*Y.*(S_v3)A2)/(2*exp(2*Z)*ZA2)  +  (4*SA2.*Y.*(S_v3)A2)/(exp(Z)*ZA2) 

(SA2.*Y.*(S_v3)A2)./(2*exp(2.*Y.*Z)*ZA2)  -  (3*exp(-2*Z  -  2.*Y.*Z)*SA2.*Y.*(S_v3)A2)/(2*ZA2) ... 

+  (2*exp(-Z  -  2.*Y.*Z)*SA2.*Y.*(S_v3)A2)/ZA2  +  (SA2.*Y  A2*(S_v3)A2)/(4*ZA2)  + 

(9*SA2.*Y  A2*(S_v3)A2)/(4*exp(6*Z)*ZA2)  -  (6*SA2.*Y  A2*(S_v3)A2)/(exp(5*Z)*ZA2)  ... 

+  (31*SA2.*Y.A2*(S_v3)A2)/(4*exp(4*Z)*ZA2)  -  (8*SA2.*Y  A2*(S_v3)A2)/(exp(3*Z)*ZA2)  + 

(23*SA2.*Y.A2*(S_v3)A2)/(4*exp(2*Z)*ZA2)  -  (2*SA2.*Y.A2*(S_v3)A2)/(exp(Z)*ZA2) ... 

-  (9*exp(-5*Z  -  Y.*Z)*SA2.*Y.A2*(S_v3)A2)/(4*ZA2)  +  (6*exp(-4*Z  -  Y.*Z)*SA2.*Y  A2*(S_v3)A2)/ZA2 
-  (ll*exp(-3*Z  -  Y.*Z)*SA2.*Y.A2*(S_v3)A2)/(2*ZA2) ... 

+  (2*exp(-2*Z  -  Y.*Z)*SA2.*Y.A2*(S_v3)A2)/ZA2  -  (exp(-Z  -  Y.*Z)*SA2.*Y  A2*(S_v3)A2)/(4*ZA2)  + 
(9*SA2*(S_v3)A2)/(2*exp(5*Z)*Z)  -  (SA2*(S_v3)A2)/(exp(4*Z)*Z) ... 

+  (25*SA2*(S_v3)A2)/(4*exp(3*Z)*Z)  -  (3*SA2*(S_v3)A2)/(exp(2*Z)*Z)  + 

(3*SA2*(S_v3)A2)/(4*exp(Z)*Z)  +  (3*exp(-3*Z  -  2.*Y.*Z)*SA2*(S_v3)A2)/(4*Z) ... 

+  (3*exp(-Z  -  2,*Y.*Z)*SA2*(S_v3)A2)/(4*Z)  +  (3*exp(-4*Z  -  Y.*Z)*SA2*(S_v3)A2)/Z  -  (2*exp(-3*Z  - 
Y.*Z)*SA2*(S_v3)A2)/Z  +  (2*exp(-2*Z  -  Y.*Z)*SA2*(S_v3)A2)/Z  ... 

(9*SA2.*Y.*(S_v3)A2)/(4*exp(5*Z)*Z)  +  (3*SA2.*Y.*(S_v3)A2)/(exp(4*Z)*Z) 

(ll*SA2.*Y.*(S_v3)A2)/(exp(3*Z)*Z)  +  (7*SA2.*Y.*(S_v3)A2)/(exp(2*Z)*Z) ... 

-  (7*SA2.*Y.*(S_v3)A2)/(4*exp(Z)*Z)  -  (exp(-Z  -  2.*Y.*Z)*SA2.*Y.*(S_v3)A2)/Z  -  (2*exp(-2*Z  - 
Y.*Z)*SA2.*Y.*(S_v3)A2)/Z  +  (15*SA2.*Y ,A2*(S_v3)A2)/(2*exp(5*Z)*Z) ... 

(13*SA2.*Y.A2*(S_v3)A2)/(exp(4*Z)*Z)  +  (41*SA2.*Y  ,A2*(S_v3)A2)/(4*exp(3*Z)*Z) 

(6*SA2.*Y.A2*(S_v3)A2)/(exp(2*Z)*Z)  +  (5*SA2.*Y  A2*(S_v3)A2)/(4*exp(Z)*Z)  ... 

+  (3*exp(-3*Z  -  2.*Y.*Z)*SA2.*Y.A2*(S_v3)A2)/(4*Z)  -  (exp(-2*Z  -  2.*Y.*Z)*SA2.*Y  A2*(S_v3)A2)/Z 
+  (exp(-Z  -  2.*Y.*Z)*SA2.*Y.A2*(S_v3)A2)/(4*Z)  ... 

(9*SA2.*Y  ,A3*(S_v3)A2)/(4*exp(5*Z)*Z)  +  (6*SA2.*Y  ,A3*(S_v3)A2)/(exp(4*Z)*Z) 

(1  l*SA2.*Y.A3*(S_v3)A2)/(2*exp(3*Z)*Z)  +  (2*SA2.*Y  A3*(S_v3)A2)/(exp(2*Z)*Z) ... 

(SA2.*Y  A3*(S_v3)A2)/(4*exp(Z)*Z)  -  (3*SA2*Z*(S_v3)A2)/(4*exp(5*Z)) 

(3*SA2*Z*(S_v3)A2)/(4*exp(3*Z))  +  (SA2.*Y.*Z*(S_v3)A2)/exp(3*Z)  + 

(SA2.*Y.A2*Z*(S_v3)A2)/exp(4*Z) ... 

+  (SA2.*Y.A2*Z*(S_v3)A2)/(2*exp(3*Z))  -  (SA2.*Y.A3*Z*(S_v3)A2)/exp(3*Z)  + 

(3*SA2.*Y.A4*Z*(S_v3)A2)/(4*exp(5*Z))  -  (SA2.*Y.A4*Z*(S_v3)A2)/exp(4*Z)  ... 

+  (SA2.*Y.A4*Z*(S_v3)A2)/(4*exp(3*Z))  +  (SA2*ZA2*(S_v3)A2)/(4*exp(4*Z)) 

(SA2.*Y.A2*ZA2*(S_v3)A2)/(2*exp(4*Z))  +  (SA2.*Y.A4*ZA2*(S_v3)A2)/(4*exp(4*Z)); 


Ns3=Nf+Nc+Ny3; 

Phi3=Nf./[Nc+Ny3]; 

Be3=l./[1+Phi3]; 

GG=Nf./Ns3; 

Gh3=[Nc+Ny3]./Ns3; 

Nh3=Nc+Ny3; 


S_v4=4; 

Ny4=l  -  exp(-2*Z)  +  exp(-Z  -  Y.*Z)  -  (2*S)/exp(2*Z)  +  2*exp(-Z  -  Y.*Z)*S  -  SA2/exp(2*Z)  +  exp(-Z  - 
Y.*Z)*SA2  -  2,*Y  +  Y ,A2  +  Y  A2/exp(2*Z)  -  exp(-Z  -  Y.*Z).*Y ,A2  ... 

+  (2*S.*Y.A2)/exp(2*Z)  -  2*exp(-Z  -  Y.*Z)*S.*Y.A2  +  (SA2.*Y  A2)/exp(2*Z)  -  exp(-Z  - 
Y.*Z)*SA2.*Y.A2  +  l/(exp(2*Z)*ZA2)  +  l./(exp(2.*Y.*Z)*ZA2) ... 

-  (2*exp(-Z  -  Y.*Z))/ZA2  +  (2*S)/(exp(2*Z)*ZA2)  +  (2*S)./(exp(2.*Y.*Z)*ZA2)  -  (4*exp(-Z  - 
Y.*Z)*S)/ZA2  +  SA2/(exp(2*Z)*ZA2)  +  SA2./(exp(2.*Y.*Z)*ZA2)  ... 
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-  (2*exp(-Z  -  Y.*Z)*SA2)/ZA2  +  2/(exp(Z)*Z)  -  2./(exp(Y.*Z)*Z)  +  (2*S)/(exp(Z)*Z)  - 
(2*S)./(exp(Y.*Z)*Z)  -  (2.*Y)/(exp(Z)*Z)  +  (2.*Y)/(exp(Y.*Z)*Z) ... 

-  (2*S.*Y)/(exp(Z)*Z)  +  (2*S.*Y)/(exp(Y.*Z)*Z)  -  Z/exp(Z)  -  (S*Z)/exp(Z)  +  (Y.*Z)/exp(Z)  + 
(S.*Y.*Z)/exp(Z)  +(Y.A2*Z)/exp(Z)  +  (S.*Y A2*Z)/exp(Z)  -  (Y  A3*Z)/exp(Z) ... 

-  (S.*Y.A3*Z)/exp(Z)  +  ZA2/(4*exp(2*Z))  +  (S*ZA2)/(2*exp(2*Z))  +  (SA2*ZA2)/(4*exp(2*Z))  - 
(Y  A2*ZA2)/(2*exp(2*Z))  -  (S.*Y  A2*ZA2)/exp(2*Z)  ... 

-  (SA2.*Y.A2*ZA2)/(2*exp(2*Z))  +  (Y.A4*ZA2)/(4*exp(2*Z))  +  (S.*Y.A4*ZA2)/(2*exp(2*Z))  + 
(SA2.*Y.A4*ZA2)/(4*exp(2*Z))  -  (7*S*(S_v4))/(2*exp(3*Z)) ... 

+  (2*S*(S_v4))/exp(2*Z)  +  (S*(S_v4))/exp(Z)  -  (exp(-Z  -  2.*Y.*Z)*S*(S_v4))/2  - 

(5*SA2*(S_v4))/exp(3*Z)  +  (2*SA2*(S_v4))/exp(2*Z)  -  (SA2*(S_v4))/(2*exp(Z)) ... 

-  (exp(-Z  -  2,*Y.*Z)*SA2*(S_v4))/2  -  (2*S.*Y.*(S_v4))/exp(2*Z)  -  (3*S.*Y.*(S_v4))/exp(Z)  + 
(3*SA2.*Y.*(S_v4))/(2*exp(3*Z))  -  (2*SA2.*Y.*(S_v4))/exp(2*Z) ... 

+  (SA2.*Y.*(S_v4))/(2*exp(Z))  +  (13*S.*Y  A2*(S_v4))/(2*exp(3*Z))  -  (4*S.*Y  A2*(S_v4))/exp(2*Z)  + 
(3*S.*Y.A2*(S_v4))/exp(Z)  +  (exp(-Z  -  2.*Y.*Z)*S.*Y.A2*(S_v4))/2  ... 

+  (5*SA2.*Y.A2*(S_v4))/exp(3*Z)  -  (2*SA2.*Y  A2*(S_v4))/exp(2*Z)  +  (SA2.*Y.A2*(S_v4))/(2*exp(Z)) 
+  (exp(-Z  -  2.*Y.*Z)*SA2.*Y.A2*(S_v4))/2  -  (3*S.*Y A3*(S_v4))/exp(3*Z) ... 

+  (4*S.*Y.A3*(S_v4))/exp(2*Z)  -  (S.*Y  A3*(S_v4))/exp(Z)  -  (3*SA2.*Y  A3*(S_v4))/(2*exp(3*Z))  + 
(2*SA2.*Y.A3*(S_v4))/exp(2*Z)  -  (SA2.*Y  A3*(S_v4))/(2*exp(Z)) ... 

+  (3*S*(S_v4))/(exp(4*Z)*ZA3)  -  (4*S*(S_v4))/(exp(3*Z)*ZA3)  +  (S*(S_v4))/(exp(2*Z)*ZA3)  + 
(S*(S_v4))./(exp(2.*Y.*Z)*ZA3)  +  (3*exp(-2*Z  -  2.*Y.*Z)*S*(S_v4))/ZA3  ... 

-  (4*exp(-Z  -  2.*Y.*Z)*S*(S_v4))/ZA3  -  (6*exp(-3*Z  -  Y.*Z)*S*(S_v4))/ZA3  +  (8*exp(-2*Z  - 
Y.*Z)*S*(S_v4))/ZA3  -  (2*exp(-Z  -  Y.*Z)*S*(S_v4))/ZA3  ... 

+  (3*SA2*(S_v4))/(exp(4*Z)*ZA3)  -  (4*SA2*(S_v4))/(exp(3*Z)*ZA3)  +  (SA2*(S_v4))/(exp(2*Z)*ZA3)  + 
(SA2*(S_v4))./(exp(2.*Y.*Z)*ZA3)  +  (3*exp(-2*Z  -  2.*Y.*Z)*SA2*(S_v4))/ZA3  ... 

-  (4*exp(-Z  -  2.*Y.*Z)*SA2*(S_v4))/ZA3  -  (6*exp(-3*Z  -  Y.*Z)*SA2*(S_v4))/ZA3  +  (8*exp(-2*Z  - 
Y.*Z)*SA2*(S_v4))/ZA3  -  (2*exp(-Z  -  Y.*Z)*SA2*(S_v4))/ZA3  ... 

+  (1  l*S*(S_v4))/(exp(3*Z)*ZA2)  -  (8*S*(S_v4))/(exp(2*Z)*ZA2)  +  (2*S*(S_v4))/(exp(Z)*ZA2)  - 
(S*(S_v4))./(exp(3.*Y.*Z)*ZA2)  -  (2*S*(S_v4))./(exp(Y.*Z)*ZA2) ... 

-  (exp(-Z  -  2.*Y.*Z)*S*(S_v4))/ZA2  -  (9*exp(-2*Z  -  Y.*Z)*S*(S_v4))/ZA2  +  (8*exp(-Z  - 
Y.*Z)*S*(S_v4))/ZA2  +  (8*SA2*(S_v4))/(exp(3*Z)*ZA2);  ... 

-  (4*SA2*(S_v4))/(exp(2*Z)*ZA2)  +  (SA2*(S_v4))/(exp(Z)*ZA2)  -  (SA2*(S_v4))./(exp(3.*Y.*Z)*ZA2)  - 
(SA2*(S_v4))./(exp(Y.*Z)*ZA2)  -  (exp(-Z  -  2,*Y.*Z)*SA2*(S_v4))/ZA2  ... 

-  (6*exp(-2*Z  -  Y.*Z)*SA2*(S_v4))/ZA2  +  (4*exp(-Z  -  Y.*Z)*SA2*(S_v4))/ZA2  - 

(6*S.*Y.*(S_v4))/(exp(3*Z)*ZA2)  +  (8*S.*Y.*(S_v4))/(exp(2*Z)*ZA2) ... 

-  (2*S.*Y.*(S_v4))/(exp(Z)*ZA2)  +  (2*S.*Y.*(S_v4))/(exp(Y.*Z)*ZA2)  +  (6*exp(-2*Z  - 

Y.*Z)*S.*Y.*(S_v4))/ZA2  -  (8*exp(-Z  -  Y.*Z)*S.*Y.*(S_v4))/ZA2  ... 

(3*SA2.*Y.*(S_v4))/(exp(3*Z)*ZA2)  +  (4*SA2.*Y.*(S_v4))/(exp(2*Z)*ZA2) 

(SA2.*Y.*(S_v4))/(exp(Z)*ZA2)  +  (SA2.*Y.*(S_v4))/(exp(Y.*Z)*ZA2) ... 

+  (3*exp(-2*Z  -  Y.*Z)*SA2.*Y.*(S_v4))/ZA2  -  (4*exp(-Z  -  Y.*Z)*SA2.*Y.*(S_v4))/ZA2  +  (S*(S_v4))/Z 
+  (2*S*(S_v4))/(exp(3*Z)*Z)  +  (9*S*(S_v4))/(exp(2*Z)*Z)... 

-  (4*S*(S_v4))/(exp(Z)*Z)  +  (S*(S_v4))./(exp(2.*Y.*Z)*Z)  -  (2*exp(-2*Z  -  Y.*Z)*S*(S_v4))/Z  + 
(exp(-Z  -  Y.*Z)*S*(S_v4))/Z  +  (2*SA2*(S_v4))/(exp(3*Z)*Z) ... 

+  (SA2*(S_v4))/(exp(2*Z)*Z)  -  (2*exp(-2*Z  -  Y.*Z)*SA2*(S_v4))/Z  -  (exp(-Z  -  Y.*Z)*SA2*(S_v4))/Z  - 
(2*S.*Y.*(S_v4))/Z  -  (13*S.*Y.*(S_v4))/(exp(2*Z)*Z)  ... 

+  (8*S.*Y.*(S_v4))/(exp(Z)*Z)  -  (S.*Y.*(S_v4))./(exp(2.*Y.*Z)*Z) 

(2*SA2.*Y.*(S_v4))/(exp(2*Z)*Z)  +  (2*exp(-Z  -  Y.*Z)*SA2.*Y.*(S_v4))/Z  +  (S.*Y  A2*(S_v4))/Z  ... 

+  (3*S.*Y.A2*(S_v4))/(exp(4*Z)*Z)  -  (4*S.*Y  A2*(S_v4))/(exp(3*Z)*Z)  + 

(4*S.*Y.A2*(S_v4))/(exp(2*Z)*Z)  -  (4*S.*Y.A2*(S_v4))/(exp(Z)*Z) ... 

-  (3*exp(-3*Z  -  Y.*Z)*S.*Y.A2*(S_v4))/Z  +  (4*exp(-2*Z  -  Y.*Z)*S.*Y ,A2*(S_v4))/Z  -  (exp(-Z  - 
Y.*Z)*S.*Y.A2*(S_v4))/Z  +  (3*SA2.*Y.A2*(S_v4))/(exp(4*Z)*Z) ... 

-  (4*SA2.*Y.A2*(S_v4))/(exp(3*Z)*Z)  +  (SA2.*Y  A2*(S_v4))/(exp(2*Z)*Z)  -  (3*exp(-3*Z  - 

Y.*Z)*SA2.*Y.A2*(S_v4))/Z  +  (4*exp(-2*Z  -  Y.*Z)*SA2.*Y ,A2*(S_v4))/Z  ... 

-  (exp(-Z  -  Y.*Z)*SA2.*Y.A2*(S_v4))/Z  -  (3*S*Z*(S_v4))/(4*exp(4*Z))  -  (7*S*Z*(S_v4))/(4*exp(2*Z)) 
-  (3*SA2*Z*(S_v4))/(4*exp(4*Z))  -  (3*SA2*Z*(S_v4))/(4*exp(2*Z)) ... 

+  (2*S.*Y.*Z*(S_v4))/exp(2*Z)  +  (SA2.*Y.*Z*(S_v4))/exp(2*Z)  +  (S.*Y  ,A2*Z*(S_v4))/exp(3*Z)  + 
(3*S.*Y  A2*Z*(S_v4))/(2*exp(2*Z))  +  (SA2.*Y ,A2*Z*(S_v4))/exp(3*Z) ... 
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+  (SA2.*Y  A2*Z*(S_v4))/(2*exp(2*Z))  -  (2*S.*Y  A3*Z*(S_v4))/exp(2*Z) 

(SA2.*Y.A3*Z*(S_v4))/exp(2*Z)  +  (3*S.*Y.A4*Z*(S_v4))/(4*exp(4*Z))  -  (S.*Y.A4*Z*(S_v4))/exp(3*Z) 

+  (S.*Y.A4*Z*(S_v4))/(4*exp(2*Z))  +  (3*SA2.*Y  A4*Z*(S_v4))/(4*exp(4*Z)) 

(SA2.*Y.A4*Z*(S_v4))/exp(3*Z)  +  (SA2.*Y.A4*Z*(S_v4))/(4*exp(2*Z))  +  (S*ZA2*(S_v4))/(2*exp(3*Z)) 

+  (SA2*ZA2*(S_v4))/(2*exp(3*Z))  -  (S.*Y  A2*ZA2*(S_v4))/exp(3*Z) 

(SA2.*Y.A2*ZA2*(S_v4))/exp(3*Z)  +  (S.*Y.A4*ZA2*(S_v4))/(2*exp(3*Z)) ... 

+  (SA2.*Y.A4*ZA2*(S_v4))/(2*exp(3*Z))  +  (9*SA2*(S_v4)A2)/(16*exp(6*Z)) 

(23*SA2*(S_v4)A2)/(8*exp(4*Z))  +  (2*SA2*(S_v4)A2)/exp(3*Z)  +  (SA2*(S_v4)A2)/(16*exp(2*Z))  ... 

(exp(-2*Z  -  2,*Y.*Z)*SA2*(S_v4)A2)/2  -  exp(-3*Z  -  Y.*Z)*SA2*(S_v4)A2 

(2*SA2.*Y.*(S_v4)A2)/exp(3*Z)  -  (SA2.*Y.*(S_v4)A2)/exp(2*Z)  +  (9*SA2.*Y  A2*(S_v4)A2)/(8*exp(6*Z)) 

(3*SA2.*Y.A2*(S_v4)A2)/(2*exp(5*Z))  +  (1 1*SA2.*Y  A2*(S_v4)A2)/(2*exp(4*Z)) 

(7*SA2.*Y  A2*(S_v4)A2)/(2*exp(3*Z))  +  (15*SA2.*Y A2*(S_v4)A2)/(8*exp(2*Z)) ... 

+  (exp(-2*Z  -  2.*Y.*Z)*SA2.*Y.A2*(S_v4)A2)/2  +  exp(-3*Z  -  Y.*Z)*SA2.*Y.A2*(S_v4)A2  - 

(3*SA2.*Y.A3*(S_v4)A2)/exp(4*Z)  +  (4*SA2.*Y  A3*(S_v4)A2)/exp(3*Z) ... 

(SA2.*Y.A3*(S_v4)A2)/exp(2*Z)  +  (9*SA2.*Y.A4*(S_v4)A2)/(16*exp(6*Z)) 

(3*SA2.*Y.A4*(S_v4)A2)/(2*exp(5*Z))  +  (1  l*SA2.*Y.A4*(S_v4)A2)/(8*exp(4*Z)) ... 

(SA2.*Y.A4*(S_v4)A2)/(2*exp(3*Z))  +  (SA2.*Y.A4*(S_v4)A2)/(16*exp(2*Z))  + 

(9*SA2*(S_v4)A2)/(4*exp(6*Z)*ZA4)  -  (6*SA2*(S_v4)A2)/(exp(5*Z)*ZA4) ... 

+  (1  l*SA2*(S_v4)A2)/(2*exp(4*Z)*ZA4)  -  (2*SA2*(S_v4)A2)/(exp(3*Z)*ZA4)  + 

(SA2*(S_v4)A2)/(4*exp(2*Z)*ZA4)  +  (SA2*(S_v4)A2)./(4*exp(2.*Y.*Z)*ZA4)  ... 

+  (9*exp(-4*Z  -  2.*Y.*Z)*SA2*(S_v4)A2)/(4*ZA4)  -  (6*exp(-3*Z  -  2.*Y.*Z)*SA2*(S_v4)A2)/ZA4  + 
(ll*exp(-2*Z  -  2.*Y.*Z)*SA2*(S_v4)A2)/(2*ZA4)  ... 

-  (2*exp(-Z  -  2.*Y.*Z)*SA2*(S_v4)A2)/ZA4  -  (9*exp(-5*Z  -  Y.*Z)*SA2*(S_v4)A2)/(2*ZA4)  +  (12*exp(- 
4*Z  -  Y.*Z)*SA2*(S_v4)A2)/ZA4  -  (ll*exp(-3*Z  -  Y.*Z)*SA2*(S_v4)A2)/ZA4  ... 

+  (4*exp(-2*Z  -  Y.*Z)*SA2*(S_v4)A2)/ZA4  -  (exp(-Z  -  Y.*Z)*SA2*(S_v4)A2)/(2*ZA4)  + 
(12*SA2*(S_v4)A2)/(exp(5*Z)*ZA3)  -  (22*SA2*(S_v4)A2)/(exp(4*Z)*ZA3) ... 

+  (27*SA2*(S_v4)A2)/(2*exp(3*Z)*ZA3)  -  (4*SA2*(S_v4)A2)/(exp(2*Z)*ZA3)  + 

(SA2*(S_v4)A2)/(2*exp(Z)*ZA3)  -  (SA2*(S_v4)A2)./(2*exp(3.*Y.*Z)*ZA3) ... 

-  (SA2*(S_v4)A2)./(2*exp(Y.*Z)*ZA3)  -  (3*exp(-2*Z  -  3.*Y.*Z)*SA2*(S_v4)A2)/(2*ZA3)  +  (2*exp(-Z  - 
3.*Y.*Z)*SA2*(S_v4)A2)/ZA3  -  (3*exp(-3*Z  -  2.*Y.*Z)*SA2*(S_v4)A2)/(2*ZA3)  ... 

+  (2*exp(-2*Z  -  2.*Y.*Z)*SA2*(S_v4)A2)/ZA3  -  (exp(-Z  -  2.*Y.*Z)*SA2*(S_v4)A2)/(2*ZA3)  -  (9*exp(- 
4*Z  -  Y.*Z)*SA2*(S_v4)A2)/ZA3  +  (18*exp(-3*Z  -  Y.*Z)*SA2*(S_v4)A2)/ZA3  ... 

-  (25*exp(-2*Z  -  Y.*Z)*SA2*(S_v4)A2)/(2*ZA3)  +  (4*exp(-Z  -  Y.*Z)*SA2*(S_v4)A2)/ZA3  - 
(9*SA2.*Y.*(S_v4)A2)/(2*exp(5*Z)*ZA3)  +  (12*SA2.*Y.*(S_v4)A2)/(exp(4*Z)*ZA3)  ... 

(1  l*SA2.*Y.*(S_v4)A2)/(exp(3*Z)*ZA3)  +  (4*SA2.*Y.*(S_v4)A2)/(exp(2*Z)*ZA3) 

(SA2.*Y.*(S_v4)A2)/(2*exp(Z)*ZA3)  +  (SA2.*Y.*(S_v4)A2)/(2*exp(Y.*Z)*ZA3) ... 

+  (9*exp(-4*Z  -  Y.*Z)*SA2.*Y.*(S_v4)A2)/(2*ZA3)  -  (12*exp(-3*Z  -  Y.*Z)*SA2.*Y.*(S_v4)A2)/ZA3  + 
(ll*exp(-2*Z  -  Y.*Z)*SA2.*Y.*(S_v4)A2)/ZA3  ... 

(4*exp(-Z  -  Y.*Z)*SA2.*Y.*(S_v4)A2)/ZA3  +  (SA2*(S_v4)A2)/(4*ZA2)  + 

(9*SA2*(S_v4)A2)/(4*exp(6*Z)*ZA2)  -  (3*SA2*(S_v4)A2)/(exp(5*Z)*ZA2)  + 

(19*SA2*(S_v4)A2)/(exp(4*Z)*ZA2)  ... 

(19*SA2*(S_v4)A2)/(exp(3*Z)*ZA2)  +  (35*SA2*(S_v4)A2)/(4*exp(2*Z)*ZA2) 

(2*SA2*(S_v4)A2)/(exp(Z)*ZA2)  +  (SA2*(S_v4)A2)./(4*exp(4.*Y.*Z)*ZA2) ... 

+  (SA2*(S_v4)A2)./(2*exp(2.*Y.*Z)*ZA2)  +  (exp(-Z  -  3.*Y.*Z)*SA2*(S_v4)A2)/ZA2  +  (5*exp(-2*Z  - 
2,*Y.*Z)*SA2*(S_v4)A2)/ZA2  -  (2*exp(-Z  -  2.*Y.*Z)*SA2*(S_v4)A2)/ZA2  ... 

-  (9*exp(-5*Z  -  Y.*Z)*SA2*(S_v4)A2)/(4*ZA2)  +  (3*exp(-4*Z  -  Y.*Z)*SA2*(S_v4)A2)/ZA2  +  (5*exp(- 
3*Z  -  Y.*Z)*SA2*(S_v4)A2)/ZA2  -  (exp(-2*Z  -  Y.*Z)*SA2*(S_v4)A2)/ZA2  ... 

+  (exp(-Z  -  Y.*Z)*SA2*(S_v4)A2)/(4*ZA2)  -  (SA2.*Y.*(S_v4)A2)/(2*ZA2) 

(15*SA2.*Y.*(S_v4)A2)/(exp(4*Z)*ZA2)  +  (26*SA2.*Y.*(S_v4)A2)/(exp(3*Z)*ZA2) ... 

(29*SA2.*Y.*(S_v4)A2)/(2*exp(2*Z)*ZA2)  +  (4*SA2.*Y.*(S_v4)A2)/(exp(Z)*ZA2) 

(SA2.*Y.*(S_v4)A2)./(2*exp(2.*Y.*Z)*ZA2)  -  (3*exp(-2*Z  -  2,*Y.*Z)*SA2.*Y.*(S_v4)A2)/(2*ZA2) ... 

+  (2*exp(-Z  -  2.*Y.*Z)*SA2.*Y.*(S_v4)A2)/ZA2  +  (SA2.*Y  ,A2*(S_v4)A2)/(4*ZA2)  + 

(9*SA2.*Y  A2*(S_v4)A2)/(4*exp(6*Z)*ZA2)  -  (6*SA2.*Y ,A2*(S_v4)A2)/(exp(5*Z)*ZA2)  ... 
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+  (3  l*SA2.*Y.A2*(S_v4)A2)/(4*exp(4*Z)*ZA2)  -  (8*SA2.*Y.A2*(S_v4)A2)/(exp(3*Z)*ZA2)  + 

(23*SA2.*Y.A2*(S_v4)A2)/(4*exp(2*Z)*ZA2)  -  (2*SA2.*Y  A2*(S_v4)A2)/(exp(Z)*ZA2) ... 

-  (9*exp(-5*Z  -  Y.*Z)*SA2.*Y.A2*(S_v4)A2)/(4*ZA2)  +  (6*exp(-4*Z  -  Y.*Z)*SA2.*Y.A2*(S_v4)A2)/ZA2 
-  (ll*exp(-3*Z  -  Y.*Z)*SA2.*Y.A2*(S_v4)A2)/(2*ZA2) ... 

+  (2*exp(-2*Z  -  Y.*Z)*SA2.*Y.A2*(S_v4)A2)/ZA2  -  (exp(-Z  -  Y.*Z)*SA2.*Y  A2*(S_v4)A2)/(4*ZA2)  + 
(9*SA2*(S_v4)A2)/(2*exp(5*Z)*Z)  -  (SA2*(S_v4)A2)/(exp(4*Z)*Z) ... 

+  (25*SA2*(S_v4)A2)/(4*exp(3*Z)*Z)  -  (3*SA2*(S_v4)A2)/(exp(2*Z)*Z)  + 

(3*SA2*(S_v4)A2)/(4*exp(Z)*Z)  +  (3*exp(-3*Z  -  2.*Y.*Z)*SA2*(S_v4)A2)/(4*Z) ... 

+  (3*exp(-Z  -  2,*Y.*Z)*SA2*(S_v4)A2)/(4*Z)  +  (3*exp(-4*Z  -  Y.*Z)*SA2*(S_v4)A2)/Z  -  (2*exp(-3*Z  - 
Y.*Z)*SA2*(S_v4)A2)/Z  +  (2*exp(-2*Z  -  Y.*Z)*SA2*(S_v4)A2)/Z  ... 

(9*SA2.*Y.*(S_v4)A2)/(4*exp(5*Z)*Z)  +  (3*SA2.*Y.*(S_v4)A2)/(exp(4*Z)*Z) 

(1  l*SA2.*Y.*(S_v4)A2)/(exp(3*Z)*Z)  +  (7*SA2.*Y.*(S_v4)A2)/(exp(2*Z)*Z) ... 

-  (7*SA2.*Y.*(S_v4)A2)/(4*exp(Z)*Z)  -  (exp(-Z  -  2.*Y.*Z)*SA2.*Y.*(S_v4)A2)/Z  -  (2*exp(-2*Z  - 
Y.*Z)*SA2.*Y.*(S_v4)A2)/Z  +  (15*SA2.*Y.A2*(S_v4)A2)/(2*exp(5*Z)*Z) ... 

(13*SA2.*Y.A2*(S_v4)A2)/(exp(4*Z)*Z)  +  (41*SA2.*Y  A2*(S_v4)A2)/(4*exp(3*Z)*Z) 

(6*SA2.*Y.A2*(S_v4)A2)/(exp(2*Z)*Z)  +  (5*SA2.*Y.A2*(S_v4)A2)/(4*exp(Z)*Z)  ... 

+  (3*exp(-3*Z  -  2.*Y.*Z)*SA2.*Y.A2*(S_v4)A2)/(4*Z)  -  (exp(-2*Z  -  2.*Y.*Z)*SA2.*Y  A2*(S_v4)A2)/Z 
+  (exp(-Z  -  2.*Y.*Z)*SA2.*Y.A2*(S_v4)A2)/(4*Z)  ... 

(9*SA2.*Y.A3*(S_v4)A2)/(4*exp(5*Z)*Z)  +  (6*SA2.*Y  A3*(S_v4)A2)/(exp(4*Z)*Z) 

(1  l*SA2.*Y.A3*(S_v4)A2)/(2*exp(3*Z)*Z)  +  (2*SA2.*Y  A3*(S_v4)A2)/(exp(2*Z)*Z) ... 

(SA2.*Y.A3*(S_v4)A2)/(4*exp(Z)*Z)  -  (3*SA2*Z*(S_v4)A2)/(4*exp(5*Z)) 

(3*SA2*Z*(S_v4)A2)/(4*exp(3*Z))  +  (SA2.*Y.*Z*(S_v4)A2)/exp(3*Z)  + 

(SA2.*Y.A2*Z*(S_v4)A2)/exp(4*Z) ... 

+  (SA2.*Y.A2*Z*(S_v4)A2)/(2*exp(3*Z))  -  (SA2.*Y  A3*Z*(S_v4)A2)/exp(3*Z)  + 

(3*SA2.*Y.A4*Z*(S_v4)A2)/(4*exp(5*Z))  -  (SA2.*Y.A4*Z*(S_v4)A2)/exp(4*Z)  ... 

+  (SA2.*Y.A4*Z*(S_v4)A2)/(4*exp(3*Z))  +  (SA2*ZA2*(S_v4)A2)/(4*exp(4*Z)) 

(SA2.*Y.A2*ZA2*(S_v4)A2)/(2*exp(4*Z))  +  (SA2.*Y.A4*ZA2*(S_v4)A2)/(4*exp(4*Z)); 


Ns4=Nf+Nc+Ny4; 
Phi4=Nf./[Nc+Ny4] ; 
Be4= 1 ./[  1  +Phi4] ; 
Gf4=Nf./Ns4; 
Gh4=[Nc+Ny4]./Ns4; 
Nh4=Nc+Ny4; 


S_v5=5; 

Ny5=l  -  exp(-2*Z)  +  exp(-Z  -  Y.*Z)  -  (2*S)/exp(2*Z)  +  2*exp(-Z  -  Y.*Z)*S  -  SA2/exp(2*Z)  +  exp(-Z  - 
Y.*Z)*SA2  -  2.*Y  +  Y.A2  +  Y.A2/exp(2*Z)  -  exp(-Z  -  Y.*Z).*Y.A2  ... 

+  (2*S.*Y.A2)/exp(2*Z)  -  2*exp(-Z  -  Y.*Z)*S.*Y.A2  +  (SA2.*Y  ,A2)/exp(2*Z)  -  exp(-Z  - 
Y.*Z)*SA2.*Y.A2  +  l/(exp(2*Z)*ZA2)  +  l./(exp(2.*Y.*Z)*ZA2) ... 

-  (2*exp(-Z  -  Y.*Z))/ZA2  +  (2*S)/(exp(2*Z)*ZA2)  +  (2*S)./(exp(2.*Y.*Z)*ZA2)  -  (4*exp(-Z  - 
Y.*Z)*S)/ZA2  +  SA2/(exp(2*Z)*ZA2)  +  SA2./(exp(2.*Y.*Z)*ZA2)  ... 

-  (2*exp(-Z  -  Y.*Z)*SA2)/ZA2  +  2/(exp(Z)*Z)  -  2,/(exp(Y.*Z)*Z)  +  (2*S)/(exp(Z)*Z)  - 
(2*S)./(exp(Y.*Z)*Z)  -  (2.*Y)/(exp(Z)*Z)  +  (2,*Y)/(exp(Y.*Z)*Z) ... 

-  (2*S.*Y)/(exp(Z)*Z)  +  (2*S.*Y)/(exp(Y.*Z)*Z)  -  Z/exp(Z)  -  (S*Z)/exp(Z)  +  (Y.*Z)/exp(Z)  + 
(S.*Y.*Z)/exp(Z)  +(Y.A2*Z)/exp(Z)  +  (S.*Y.A2*Z)/exp(Z)  -  (Y ,A3*Z)/exp(Z) ... 

-  (S.*Y.A3*Z)/exp(Z)  +  ZA2/(4*exp(2*Z))  +  (S*ZA2)/(2*exp(2*Z))  +  (SA2*ZA2)/(4*exp(2*Z))  - 
(Y.A2*ZA2)/(2*exp(2*Z))  -  (S.*Y.A2*ZA2)/exp(2*Z)  ... 

-  (SA2.*Y.A2*ZA2)/(2*exp(2*Z))  +  (Y.A4*ZA2)/(4*exp(2*Z))  +  (S.*Y.A4*ZA2)/(2*exp(2*Z))  + 
(SA2.*Y.A4*ZA2)/(4*exp(2*Z))  -  (7*S*(S_v5))/(2*exp(3*Z)) ... 

+  (2*S*(S_v5))/exp(2*Z)  +  (S*(S_v5))/exp(Z)  -  (exp(-Z  -  2.*Y.*Z)*S*(S_v5))/2  - 

(5*SA2*(S_v5))/exp(3*Z)  +  (2*SA2*(S_v5))/exp(2*Z)  -  (SA2*(S_v5))/(2*exp(Z)) ... 

-  (exp(-Z  -  2,*Y.*Z)*SA2*(S_v5))/2  -  (2*S.*Y.*(S_v5))/exp(2*Z)  -  (3*S.*Y.*(S_v5))/exp(Z)  + 
(3*SA2.*Y.*(S_v5))/(2*exp(3*Z))  -  (2*SA2.*Y.*(S_v5))/exp(2*Z) ... 
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+  (SA2.*Y.*(S_v5))/(2*exp(Z))  +  (13*S.*Y.A2*(S_v5))/(2*exp(3*Z))  -  (4*S.*Y  A2*(S_v5))/exp(2*Z)  + 
(3*S.*Y.A2*(S_v5))/exp(Z)  +  (exp(-Z  -  2.*Y.*Z)*S.*Y.A2*(S_v5))/2  ... 

+  (5*SA2.*Y.A2*(S_v5))/exp(3*Z)  -  (2*SA2.*Y  A2*(S_v5))/exp(2*Z)  +  (SA2.*Y.A2*(S_v5))/(2*exp(Z)) 
+  (exp(-Z  -  2.*Y.*Z)*SA2.*Y.A2*(S_v5))/2  -  (3*S.*Y.A3*(S_v5))/exp(3*Z) ... 

+  (4*S.*Y.A3*(S_v5))/exp(2*Z)  -  (S.*Y  A3*(S_v5))/exp(Z)  -  (3*SA2.*Y.A3*(S_v5))/(2*exp(3*Z))  + 
(2*SA2.*Y.A3*(S_v5))/exp(2*Z)  -  (SA2.*Y.A3*(S_v5))/(2*exp(Z)) ... 

+  (3*S*(S_v5))/(exp(4*Z)*ZA3)  -  (4*S*(S_v5))/(exp(3*Z)*ZA3)  +  (S*(S_v5))/(exp(2*Z)*ZA3)  + 
(S*(S_v5))./(exp(2.*Y.*Z)*ZA3)  +  (3*exp(-2*Z  -  2.*Y.*Z)*S*(S_v5))/ZA3  ... 

-  (4*exp(-Z  -  2.*Y.*Z)*S*(S_v5))/ZA3  -  (6*exp(-3*Z  -  Y.*Z)*S*(S_v5))/ZA3  +  (8*exp(-2*Z  - 
Y.*Z)*S*(S_v5))/ZA3  -  (2*exp(-Z  -  Y.*Z)*S*(S_v5))/ZA3  ... 

+  (3*SA2*(S_v5))/(exp(4*Z)*ZA3)  -  (4*SA2*(S_v5))/(exp(3*Z)*ZA3)  +  (SA2*(S_v5))/(exp(2*Z)*ZA3)  + 
(SA2*(S_v5))./(exp(2.*Y.*Z)*ZA3)  +  (3*exp(-2*Z  -  2.*Y.*Z)*SA2*(S_v5))/ZA3  ... 

-  (4*exp(-Z  -  2.*Y.*Z)*SA2*(S_v5))/ZA3  -  (6*exp(-3*Z  -  Y.*Z)*SA2*(S_v5))/ZA3  +  (8*exp(-2*Z  - 
Y.*Z)*SA2*(S_v5))/ZA3  -  (2*exp(-Z  -  Y.*Z)*SA2*(S_v5))/ZA3  ... 

+  (1  l*S*(S_v5))/(exp(3*Z)*ZA2)  -  (8*S*(S_v5))/(exp(2*Z)*ZA2)  +  (2*S*(S_v5))/(exp(Z)*ZA2)  - 
(S*(S_v5))./(exp(3.*Y.*Z)*ZA2)  -  (2*S*(S_v5))./(exp(Y.*Z)*ZA2) ... 

-  (exp(-Z  -  2.*Y.*Z)*S*(S_v5))/ZA2  -  (9*exp(-2*Z  -  Y.*Z)*S*(S_v5))/ZA2  +  (8*exp(-Z  - 
Y.*Z)*S*(S_v5))/ZA2  +  (8*SA2*(S_v5))/(exp(3*Z)*ZA2);  ... 

-  (4*SA2*(S_v5))/(exp(2*Z)*ZA2)  +  (SA2*(S_v5))/(exp(Z)*ZA2)  -  (SA2*(S_v5))./(exp(3.*Y.*Z)*ZA2)  - 
(SA2*(S_v5))./(exp(Y.*Z)*ZA2)  -  (exp(-Z  -  2.*Y.*Z)*SA2*(S_v5))/ZA2  ... 

-  (6*exp(-2*Z  -  Y.*Z)*SA2*(S_v5))/ZA2  +  (4*exp(-Z  -  Y.*Z)*SA2*(S_v5))/ZA2  - 

(6*S.*Y.*(S_v5))/(exp(3*Z)*ZA2)  +  (8*S.*Y.*(S_v5))/(exp(2*Z)*ZA2) ... 

-  (2*S.*Y.*(S_v5))/(exp(Z)*ZA2)  +  (2*S.*Y.*(S_v5))/(exp(Y.*Z)*ZA2)  +  (6*exp(-2*Z  - 

Y.*Z)*S.*Y.*(S_v5))/ZA2  -  (8*exp(-Z  -  Y.*Z)*S.*Y.*(S_v5))/ZA2  ... 

(3*SA2.*Y.*(S_v5))/(exp(3*Z)*ZA2)  +  (4*SA2.*Y.*(S_v5))/(exp(2*Z)*ZA2) 

(SA2.*Y.*(S_v5))/(exp(Z)*ZA2)  +  (SA2.*Y.*(S_v5))/(exp(Y.*Z)*ZA2) ... 

+  (3*exp(-2*Z  -  Y.*Z)*SA2.*Y.*(S_v5))/ZA2  -  (4*exp(-Z  -  Y.*Z)*SA2.*Y.*(S_v5))/ZA2  +  (S*(S_v5))/Z 
+  (2*S*(S_v5))/(exp(3*Z)*Z)  +  (9*S*(S_v5))/(exp(2*Z)*Z)... 

-  (4*S*(S_v5))/(exp(Z)*Z)  +  (S*(S_v5))./(exp(2.*Y.*Z)*Z)  -  (2*exp(-2*Z  -  Y.*Z)*S*(S_v5))/Z  + 
(exp(-Z  -  Y.*Z)*S*(S_v5))/Z  +  (2*SA2*(S_v5))/(exp(3*Z)*Z) ... 

+  (SA2*(S_v5))/(exp(2*Z)*Z)  -  (2*exp(-2*Z  -  Y.*Z)*SA2*(S_v5))/Z  -  (exp(-Z  -  Y.*Z)*SA2*(S_v5))/Z  - 
(2*S.*Y.*(S_v5))/Z  -  (13*S.*Y.*(S_v5))/(exp(2*Z)*Z) ... 

+  (8*S.*Y.*(S_v5))/(exp(Z)*Z)  -  (S.*Y.*(S_v5))./(exp(2.*Y.*Z)*Z) 

(2*SA2.*Y.*(S_v5))/(exp(2*Z)*Z)  +  (2*exp(-Z  -  Y.*Z)*SA2.*Y.*(S_v5))/Z  +  (S.*Y.A2*(S_v5))/Z  ... 

+  (3*S.*Y.A2*(S_v5))/(exp(4*Z)*Z)  -  (4*S.*Y  A2*(S_v5))/(exp(3*Z)*Z)  + 

(4*S.*Y.A2*(S_v5))/(exp(2*Z)*Z)  -  (4*S.*Y  A2*(S_v5))/(exp(Z)*Z) ... 

-  (3*exp(-3*Z  -  Y.*Z)*S.*Y.A2*(S_v5))/Z  +  (4*exp(-2*Z  -  Y.*Z)*S.*Y.A2*(S_v5))/Z  -  (exp(-Z  - 
Y.*Z)*S.*Y.A2*(S_v5))/Z  +  (3*SA2.*Y.A2*(S_v5))/(exp(4*Z)*Z) ... 

-  (4*SA2.*Y.A2*(S_v5))/(exp(3*Z)*Z)  +  (SA2.*Y  A2*(S_v5))/(exp(2*Z)*Z)  -  (3*exp(-3*Z  - 

Y.*Z)*SA2.*Y.A2*(S_v5))/Z  +  (4*exp(-2*Z  -  Y.*Z)*SA2.*Y.A2*(S_v5))/Z  ... 

-  (exp(-Z  -  Y.*Z)*SA2.*Y.A2*(S_v5))/Z  -  (3*S*Z*(S_v5))/(4*exp(4*Z))  -  (7*S*Z*(S_v5))/(4*exp(2*Z)) 
-  (3*SA2*Z*(S_v5))/(4*exp(4*Z))  -  (3*SA2*Z*(S_v5))/(4*exp(2*Z)) ... 

+  (2*S.*Y.*Z*(S_v5))/exp(2*Z)  +  (SA2.*Y.*Z*(S_v5))/exp(2*Z)  +  (S.*Y.A2*Z*(S_v5))/exp(3*Z)  + 
(3*S.*Y.A2*Z*(S_v5))/(2*exp(2*Z))  +  (SA2.*Y.A2*Z*(S_v5))/exp(3*Z) ... 

+  (SA2.*Y.A2*Z*(S_v5))/(2*exp(2*Z))  -  (2*S.*Y.A3*Z*(S_v5))/exp(2*Z) 

(SA2.*Y.A3*Z*(S_v5))/exp(2*Z)  +  (3*S.*Y.A4*Z*(S_v5))/(4*exp(4*Z))  -  (S.*Y.A4*Z*(S_v5))/exp(3*Z) 

+  (S.*Y.A4*Z*(S_v5))/(4*exp(2*Z))  +  (3*SA2.*Y.A4*Z*(S_v5))/(4*exp(4*Z)) 

(SA2.*Y.A4*Z*(S_v5))/exp(3*Z)  +  (SA2.*Y.A4*Z*(S_v5))/(4*exp(2*Z))  +  (S*ZA2*(S_v5))/(2*exp(3*Z)) 

+  (SA2*ZA2*(S_v5))/(2*exp(3*Z))  -  (S.*Y.A2*ZA2*(S_v5))/exp(3*Z) 

(SA2.*Y.A2*ZA2*(S_v5))/exp(3*Z)  +  (S.*Y  A4*ZA2*(S_v5))/(2*exp(3*Z)) ... 

+  (SA2.*Y.A4*ZA2*(S_v5))/(2*exp(3*Z))  +  (9*SA2*(S_v5)A2)/(16*exp(6*Z)) 

(23*SA2*(S_v5)A2)/(8*exp(4*Z))  +  (2*SA2*(S_v5)A2)/exp(3*Z)  +  (SA2*(S_v5)A2)/(16*exp(2*Z))  ... 
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(exp(-2*Z  -  2.*Y.*Z)*SA2*(S_v5)A2)/2  -  exp(-3*Z  -  Y.*Z)*SA2*(S_v5)A2 

(2*SA2.*Y.*(S_v5)A2)/exp(3*Z)  -  (SA2.*Y.*(S_v5)A2)/exp(2*Z)  +  (9*SA2.*Y  A2*(S_v5)A2)/(8*exp(6*Z)) 

(3*SA2.*Y.A2*(S_v5)A2)/(2*exp(5*Z))  +  (1 1*SA2.*Y  A2*(S_v5)A2)/(2*exp(4*Z)) 

(7*SA2.*Y.A2*(S_v5)A2)/(2*exp(3*Z))  +  (15*SA2.*Y.A2*(S_v5)A2)/(8*exp(2*Z)) ... 

+  (exp(-2*Z  -  2.*Y.*Z)*SA2.*Y.A2*(S_v5)A2)/2  +  exp(-3*Z  -  Y.*Z)*SA2.*Y.A2*(S_v5)A2  - 

(3*SA2.*Y.A3*(S_v5)A2)/exp(4*Z)  +  (4*SA2.*Y ,A3*(S_v5)A2)/exp(3*Z) ... 

(SA2.*Y.A3*(S_v5)A2)/exp(2*Z)  +  (9*SA2.*Y.A4*(S_v5)A2)/(16*exp(6*Z)) 

(3*SA2.*Y.A4*(S_v5)A2)/(2*exp(5*Z))  +  (1 1*SA2.*Y ,A4*(S_v5)A2)/(8*exp(4*Z)) ... 

(SA2.*Y.A4*(S_v5)A2)/(2*exp(3*Z))  +  (SA2.*Y.A4*(S_v5)A2)/(16*exp(2*Z))  + 

(9*SA2*(S_v5)A2)/(4*exp(6*Z)*ZA4)  -  (6*SA2*(S_v5)A2)/(exp(5*Z)*ZA4) ... 

+  (1  l*SA2*(S_v5)A2)/(2*exp(4*Z)*ZA4)  -  (2*SA2*(S_v5)A2)/(exp(3*Z)*ZA4)  + 

(SA2*(S_v5)A2)/(4*exp(2*Z)*ZA4)  +  (SA2*(S_v5)A2)./(4*exp(2.*Y.*Z)*ZA4)  ... 

+  (9*exp(-4*Z  -  2.*Y.*Z)*SA2*(S_v5)A2)/(4*ZA4)  -  (6*exp(-3*Z  -  2.*Y.*Z)*SA2*(S_v5)A2)/ZA4  + 
(ll*exp(-2*Z  -  2.*Y.*Z)*SA2*(S_v5)A2)/(2*ZA4)  ... 

-  (2*exp(-Z  -  2.*Y.*Z)*SA2*(S_v5)A2)/ZA4  -  (9*exp(-5*Z  -  Y.*Z)*SA2*(S_v5)A2)/(2*ZA4)  +  (12*exp(- 
4*Z  -  Y.*Z)*SA2*(S_v5)A2)/ZA4  -  (ll*exp(-3*Z  -  Y.*Z)*SA2*(S_v5)A2)/ZA4  ... 

+  (4*exp(-2*Z  -  Y.*Z)*SA2*(S_v5)A2)/ZA4  -  (exp(-Z  -  Y.*Z)*SA2*(S_v5)A2)/(2*ZA4)  + 
(12*SA2*(S_v5)A2)/(exp(5*Z)*ZA3)  -  (22*SA2*(S_v5)A2)/(exp(4*Z)*ZA3) ... 

+  (27*SA2*(S_v5)A2)/(2*exp(3*Z)*ZA3)  -  (4*SA2*(S_v5)A2)/(exp(2*Z)*ZA3)  + 

(SA2*(S_v5)A2)/(2*exp(Z)*ZA3)  -  (SA2*(S_v5)A2)./(2*exp(3.*Y.*Z)*ZA3) ... 

-  (SA2*(S_v5)A2)./(2*exp(Y.*Z)*ZA3)  -  (3*exp(-2*Z  -  3.*Y.*Z)*SA2*(S_v5)A2)/(2*ZA3)  +  (2*exp(-Z  - 
3.*Y.*Z)*SA2*(S_v5)A2)/ZA3  -  (3*exp(-3*Z  -  2.*Y.*Z)*SA2*(S_v5)A2)/(2*ZA3) ... 

+  (2*exp(-2*Z  -  2.*Y.*Z)*SA2*(S_v5)A2)/ZA3  -  (exp(-Z  -  2.*Y.*Z)*SA2*(S_v5)A2)/(2*ZA3)  -  (9*exp(- 
4*Z  -  Y.*Z)*SA2*(S_v5)A2)/ZA3  +  (18*exp(-3*Z  -  Y.*Z)*SA2*(S_v5)A2)/ZA3  ... 

-  (25*exp(-2*Z  -  Y.*Z)*SA2*(S_v5)A2)/(2*ZA3)  +  (4*exp(-Z  -  Y.*Z)*SA2*(S_v5)A2)/ZA3  - 
(9*SA2.*Y.*(S_v5)A2)/(2*exp(5*Z)*ZA3)  +  (12*SA2.*Y.*(S_v5)A2)/(exp(4*Z)*ZA3) ... 

(ll*SA2.*Y.*(S_v5)A2)/(exp(3*Z)*ZA3)  +  (4*SA2.*Y.*(S_v5)A2)/(exp(2*Z)*ZA3) 

(SA2.*Y.*(S_v5)A2)/(2*exp(Z)*ZA3)  +  (SA2.*Y.*(S_v5)A2)/(2*exp(Y.*Z)*ZA3) ... 

+  (9*exp(-4*Z  -  Y.*Z)*SA2.*Y.*(S_v5)A2)/(2*ZA3)  -  (12*exp(-3*Z  -  Y.*Z)*SA2.*Y.*(S_v5)A2)/ZA3  + 
(ll*exp(-2*Z  -  Y.*Z)*SA2.*Y.*(S_v5)A2)/ZA3  ... 

(4*exp(-Z  -  Y.*Z)*SA2.*Y.*(S_v5)A2)/ZA3  +  (SA2*(S_v5)A2)/(4*ZA2)  + 

(9*SA2*(S_v5)A2)/(4*exp(6*Z)*ZA2)  -  (3*SA2*(S_v5)A2)/(exp(5*Z)*ZA2)  + 

(19*SA2*(S_v5)A2)/(exp(4*Z)*ZA2)  ... 

(19*SA2*(S_v5)A2)/(exp(3*Z)*ZA2)  +  (35*SA2*(S_v5)A2)/(4*exp(2*Z)*ZA2) 

(2*SA2*(S_v5)A2)/(exp(Z)*ZA2)  +  (SA2*(S_v5)A2)./(4*exp(4.*Y.*Z)*ZA2) ... 

+  (SA2*(S_v5)A2)./(2*exp(2.*Y.*Z)*ZA2)  +  (exp(-Z  -  3.*Y.*Z)*SA2*(S_v5)A2)/ZA2  +  (5*exp(-2*Z  - 
2,*Y.*Z)*SA2*(S_v5)A2)/ZA2  -  (2*exp(-Z  -  2.*Y.*Z)*SA2*(S_v5)A2)/ZA2  ... 

-  (9*exp(-5*Z  -  Y.*Z)*SA2*(S_v5)A2)/(4*ZA2)  +  (3*exp(-4*Z  -  Y.*Z)*SA2*(S_v5)A2)/ZA2  +  (5*exp(- 
3*Z  -  Y.*Z)*SA2*(S_v5)A2)/ZA2  -  (exp(-2*Z  -  Y.*Z)*SA2*(S_v5)A2)/ZA2  ... 

+  (exp(-Z  -  Y.*Z)*SA2*(S_v5)A2)/(4*ZA2)  -  (SA2.*Y.*(S_v5)A2)/(2*ZA2) 

(15*SA2.*Y.*(S_v5)A2)/(exp(4*Z)*ZA2)  +  (26*SA2.*Y.*(S_v5)A2)/(exp(3*Z)*ZA2) ... 

(29*SA2.*Y.*(S_v5)A2)/(2*exp(2*Z)*ZA2)  +  (4*SA2.*Y.*(S_v5)A2)/(exp(Z)*ZA2) 

(SA2.*Y.*(S_v5)A2)./(2*exp(2.*Y.*Z)*ZA2)  -  (3*exp(-2*Z  -  2,*Y.*Z)*SA2.*Y.*(S_v5)A2)/(2*ZA2) ... 

+  (2*exp(-Z  -  2.*Y.*Z)*SA2.*Y.*(S_v5)A2)/ZA2  +  (SA2.*Y  ,A2*(S_v5)A2)/(4*ZA2)  + 

(9*SA2.*Y  A2*(S_v5)A2)/(4*exp(6*Z)*ZA2)  -  (6*SA2.*Y  A2*(S_v5)A2)/(exp(5*Z)*ZA2)  ... 

+  (3  l*SA2.*Y.A2*(S_v5)A2)/(4*exp(4*Z)*ZA2)  -  (8*SA2.*Y  ,A2*(S_v5)A2)/(exp(3*Z)*ZA2)  + 

(23*SA2.*Y.A2*(S_v5)A2)/(4*exp(2*Z)*ZA2)  -  (2*SA2.*Y.A2*(S_v5)A2)/(exp(Z)*ZA2) ... 

-  (9*exp(-5*Z  -  Y.*Z)*SA2.*Y.A2*(S_v5)A2)/(4*ZA2)  +  (6*exp(-4*Z  -  Y.*Z)*SA2.*Y ,A2*(S_v5)A2)/ZA2 
-  (ll*exp(-3*Z  -  Y.*Z)*SA2.*Y.A2*(S_v5)A2)/(2*ZA2) ... 

+  (2*exp(-2*Z  -  Y.*Z)*SA2.*Y.A2*(S_v5)A2)/ZA2  -  (exp(-Z  -  Y.*Z)*SA2.*Y ,A2*(S_v5)A2)/(4*ZA2)  + 
(9*SA2*(S_v5)A2)/(2*exp(5*Z)*Z)  -  (SA2*(S_v5)A2)/(exp(4*Z)*Z) ... 

+  (25*SA2*(S_v5)A2)/(4*exp(3*Z)*Z)  -  (3*SA2*(S_v5)A2)/(exp(2*Z)*Z)  + 

(3*SA2*(S_v5)A2)/(4*exp(Z)*Z)  +  (3*exp(-3*Z  -  2.*Y.*Z)*SA2*(S_v5)A2)/(4*Z) ... 

+  (3*exp(-Z  -  2,*Y.*Z)*SA2*(S_v5)A2)/(4*Z)  +  (3*exp(-4*Z  -  Y.*Z)*SA2*(S_v5)A2)/Z  -  (2*exp(-3*Z  - 
Y.*Z)*SA2*(S_v5)A2)/Z  +  (2*exp(-2*Z  -  Y.*Z)*SA2*(S_v5)A2)/Z  ... 
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(9*SA2.*Y.*(S_v5)A2)/(4*exp(5*Z)*Z)  +  (3*SA2.*Y.*(S_v5)A2)/(exp(4*Z)*Z) 

(1  l*SA2.*Y.*(S_v5)A2)/(exp(3*Z)*Z)  +  (7*SA2.*Y.*(S_v5)A2)/(exp(2*Z)*Z) ... 

-  (7*SA2.*Y.*(S_v5)A2)/(4*exp(Z)*Z)  -  (exp(-Z  -  2.*Y.*Z)*SA2.*Y.*(S_v5)A2)/Z  -  (2*exp(-2*Z  - 
Y.*Z)*SA2.*Y.*(S_v5)A2)/Z  +  (15*SA2.*Y  A2*(S_v5)A2)/(2*exp(5*Z)*Z) ... 

(13*SA2.*Y.A2*(S_v5)A2)/(exp(4*Z)*Z)  +  (41*SA2.*Y  A2*(S_v5)A2)/(4*exp(3*Z)*Z) 

(6*SA2.*Y  A2*(S_v5)A2)/(exp(2*Z)*Z)  +  (5*SA2.*Y  A2*(S_v5)A2)/(4*exp(Z)*Z)  ... 

+  (3*exp(-3*Z  -  2.*Y.*Z)*SA2.*Y.A2*(S_v5)A2)/(4*Z)  -  (exp(-2*Z  -  2.*Y.*Z)*SA2.*Y.A2*(S_v5)A2)/Z 
+  (exp(-Z  -  2.*Y.*Z)*SA2.*Y.A2*(S_v5)A2)/(4*Z)  ... 

(9*SA2.*Y  ,A3*(S_v5)A2)/(4*exp(5*Z)*Z)  +  (6*SA2.*Y  A3*(S_v5)A2)/(exp(4*Z)*Z) 

(1  l*SA2.*Y.A3*(S_v5)A2)/(2*exp(3*Z)*Z)  +  (2*SA2.*Y.A3*(S_v5)A2)/(exp(2*Z)*Z) ... 

(SA2.*Y.A3*(S_v5)A2)/(4*exp(Z)*Z)  -  (3*SA2*Z*(S_v5)A2)/(4*exp(5*Z)) 

(3*SA2*Z*(S_v5)A2)/(4*exp(3*Z))  +  (SA2.*Y.*Z*(S_v5)A2)/exp(3*Z)  + 

(SA2.*Y.A2*Z*(S_v5)A2)/exp(4*Z) ... 

+  (SA2.*Y.A2*Z*(S_v5)A2)/(2*exp(3*Z))  -  (SA2.*Y  A3*Z*(S_v5)A2)/exp(3*Z)  + 

(3*SA2.*Y.A4*Z*(S_v5)A2)/(4*exp(5*Z))  -  (SA2.*Y.A4*Z*(S_v5)A2)/exp(4*Z)  ... 

+  (SA2.*Y.A4*Z*(S_v5)A2)/(4*exp(3*Z))  +  (SA2*ZA2*(S_v5)A2)/(4*exp(4*Z)) 

(SA2.*Y.A2*ZA2*(S_v5)A2)/(2*exp(4*Z))  +  (SA2.*Y.A4*ZA2*(S_v5)A2)/(4*exp(4*Z)); 


Ns5=Nf+Nc+Ny5; 

Phi5=Nf./[Nc+Ny5]; 

Be5=l./[1+Phi5]; 

Gf5=Nf./Ns5; 

Gh5=[Nc+Ny5]./Ns5; 

Nh5=Nc+Ny5; 


plot(Y,Nsl,'b',Y,Ns2,'g',Y,Ns3,'r',Y,Ns4,'k',Y,Ns5,'m') 

%  plot(Y,Bel,'b',Y,Be2,'g',Y,Be3,'r',Y,Be4,'k',Y,Be5,'m') 

%  plot(Y,Phil,'b',Y,Phi2,'g',Y,Phi3,'r',Y,Phi4,'k',Y,Phi5,'m') 

%  plot(Y,Gfl  ,'b',Y,Gf2,'g',Y,Gfi,'r',Y,Gf4,'k',Y,Gf5,'m') 

%  plot(Y,Ghl  ,'b',Y,Gh2,'g',Y,Gh3,'r',Y,Gh4,'k',Y,Gh5,'m') 

%  plot(Y,Nfl  ,'b',Y,Nf2,'g',Y,ND,'r',Y,Nf4,'k',Y,Nf5,'m') 

%  plot(Y,Nhl,'b',Y,Nh2,'g',Y,Nh3,'r',Y,Nh4,'k',Y,Nh5,'m') 

%  plot(Nhl,Nfl,'b',Nh2,Nf2,'g',Nh3,Nf3,'r',Nh4,Nf4,'k',Nh5,Nf5,'m') 


PLOTTOOLS  ON 
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2.  PROGRAMS  FOR 
CIRCULAR  MICROTUBE 
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2.1.  Distribution  of  Ns,Be,  O,  GF,  GR,  NF  and  N H  versus  R  for  a  range  of 


Br  and  set  of  S ,  Sv ,  Z  &  Pe 


S=l;  S_v=l;Z=l;Pe=10; 

%  S=5;  S_v=0.75;  Z=7.5;  Pe=2; 

%  %  %  %  %  S=2;  S_v=l;  Z=5;  Pe=0.5; 

%  %  %  %  %  S=25;  S_v=15;  Z=10;  Pe=2.5; 

%  %  %  %  %  S=20;  S_v=2;  Z=2.5;  Pe=0.5; 

%  %  %  %  %  S=10;  S_v=25;  Z=20;  Pe=5; 

q=1.86; 

s=l; 

Dh=250*10A-6; 

R=0:0.005:l; 

Nc=[l/PeA2]*[16*qA2+sA2*DhA2+8*q*s*Dh]; 

Nr=(R.A2*  S  A2)/4  +  (25. *R  A2*SA2*(S_v))/(384*(l  +  ZA2/4  +  ZA4/64)A2)+ 

(R.A2.*R.*ZA2*SA2*(S_v))/(4*(l  +  ZA2/4  +  ZA4/64)A2) 

(43.*R.A4*SA2*ZA2*(S_v))/(384*(l  +  ZA2/4  +  ZA4/64)A2)„. 

+  (5.*R.A5.*R.*Z*SA2*ZA3*(S_v))/(32*(l  +  ZA2/4  +  ZA4/64)A2)+  (407.*R  A6*SA2*ZA4*(S_v))/(4096*(l 
+  ZA2/4  +  ZA4/64)A2)  +  ... 

(7.*R  A7.*R.*Z*SA2*ZA5*(S_v))/(768*(l  +  ZA2/4  +  ZA4/64)A2)  +  (539.*R  A8*SA2*ZA6*(S_v))/(4096*(l 
+  ZA2/4  +  ZA4/64)A2)  +  ... 

(85225.  *R.A10*SA2*ZA8*(S_v))/(1572864*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(6487.*R.A12*SA2*ZA10*(S_v))/(393216*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(17773.*R.A14*SA2*ZA12*(S_v))/(4194304*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(201  l.*R.A16*SA2*ZA14*(S_v))/(2097152*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(206775.  *R.A18*SA2*ZA16*(S_v))/(  1 07374 1824*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(108275. *R.A20*SA2*ZA18*(S_v))/(3221225472*(l  +  ZA2/4  +  ZA4/64)A2)  +... 

(512435. *R.A22*SA2*ZA20*(S_v))/(103079215104*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(21031.*R.A24*SA2*ZA22*(S_v))/(34359738368*(l  +  ZA2/4  +  ZA4/64)A2)  +... 

(272987. *R.A26*SA2*ZA24*(S_v))/(439804651 1 104*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(1 1305.*R.A28*SA2*ZA26*(S_v))/(2199023255552*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(24225.  *R.A30*SA2*ZA28*(S_v))/(70368744177664*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(323.  *R.A32*SA2*ZA30*(S_v))/(l  75921 860444 16*(1  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(27455.  *R.A34*SA2*ZA32*(S_v))/(36028797018963968*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(855.*R  A36*SA2*ZA34*(S_v))/(36028797018963968*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 
(1805.*R.A38*SA2*ZA36*(S_v))/(3458764513820540928*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(25.*R.A40*SA2*ZA38*(S_v))/(3458764513820540928*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 
(7.*R.A42*SA2*ZA40*(S_v))/(147573952589676412928*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(625.*R.A2*SA2*(S_v)A2)/(147456*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(25.*R  A2.*R.*ZA2*SA2*(S_v)A2)/(768*(l  +  ZA2/4  +  ZA4/64)A4)  +  (R  A2.*R.*ZA4*SA2*(S_v)A2)/(16*(l 
+  ZA2/4  +  ZA4/64)A4)  - ... 

(1075.*R.A4*SA2*ZA2*(S_v)A2)/(73728*(l  +  ZA2/4  +  ZA4/64)A4) 

(43.*R.A4.*R.*ZA2*SA2*ZA2*(S_v)A2)/(768*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(125.*R.A5.*R.*Z*SA2*ZA3*(S_v)A2)/(6144*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(5.*R.A5.*R.*ZA3*SA2*ZA3*(S_v)A2)/(64*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(60109.*R.A6*SA2*ZA4*(S_v)A2)/(2359296*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(407.*R  A6.*R.*ZA2*SA2*ZA4*(S_v)A2)/(8192*(l  +  ZA2/4  +  ZA4/64)A4)  -  ... 

(4985.*R.A7.*R.*Z*SA2*ZA5*(S_v)A2)/(147456*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(7.*R.A7.*R.*ZA3*SA2*ZA5*(S_v)A2)/(1536*(l  +  ZA2/4  +  ZA4/64)A4)  -  ... 
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(671.*R.A8*SA2*ZA6*(S_v)A2)/(131072*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(739.*R.A8.*R.*ZA2*SA2*ZA6*(S_v)A2)/(8192*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(171  ll.*R.A9.*R.*Z*SA2*ZA7*(S_v)A2)/(589824*(l  +  ZA2/4  +  ZA4/64)A4) 

(3787661. *R.A10*SA2*ZA8*(S_v)A2)/(301989888*(l  +  ZA2/4  +  ZA4/64)A4)  +... 

(31395.*R.A10.*R.*ZA2*SA2*ZA8*(S_v)A2)/(1048576*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(67529.  *R.All.*R.*Z*SA2*ZA9*(S_v)A2)/(1572864*(l  +  ZA2/4  +  ZA4/64)A4)  +... 

(1627151.*R.A12*SA2*ZA10*(S_v)A2)/(100663296*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(19657.*R.A12.*R.*ZA2*SA2*ZA10*(S_v)A2)/(2359296*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(486493.  *R.A1 3.  *R.  *Z*SA2*ZA1  l*(S_v)A2)/(25165824*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(24 1 027273.  *R.A14*SA2*ZA12*(S_v)A2)/(9663676416*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(17773.*R  A14.*R.*ZA2*SA2*ZA12*(S_v)A2)/(8388608*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(3710335.*R  A15.*R.*Z*SA2*ZA13*(S_v)A2)/(603979776*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(53  842355.  *R.A16*SA2*ZA14*(S_v)A2)/(3221225472*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(20 1 1  .*R.A  16.  *R.  *ZA2*SA2*ZA  1 4*(S_v)A2)/(4 1 94304*(  1  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(981421,*R.A17.*R.*Z*SA2*ZA15*(S_v)A2)/(603979776*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(19618549477.*R.A18*SA2*ZA16*(S_v)A2)/(2473901 162496*(1  +  ZA2/4  +  ZA4/64)A4)  +... 

(206775.  *R.A1 8.  *R.*ZA2*SA2*ZA16*(S_v)A2)/(2147483648*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(60705  l.*R.A19.*R.*Z*SA2*ZA17*(S_v)A2)/(1610612736*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(94466866  l.*R.A20*SA2*ZA18*(S_v)A2)/(30923  76453 12*(1  +  ZA2/4  +  ZA4/64)A4)  + 


(108275.*R.A20.*R.*ZA2*SA2*ZA18*(S_v)A2)/(6442450944*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(4002553.  *R.A21.*R.*Z*SA2*ZA19*(S_v)A2)/(51539607552*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(3348433219.*R  A22*SA2*ZA20*(S_v)A2)/(3298534883328*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(512435.*R.A22.*R.*ZA2*SA2*ZA20*(S_v)A2)/(206158430208*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(5778425. *R.A23.*R.*Z*SA2*ZA21*(S_v)A2)/(412316860416*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(14846261 11.  *R.A24*SA2*ZA22*(S_v)A2)/(4947802324992*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(21031.*R.A24.*R.*ZA2*SA2*ZA22*(S_v)A2)/(68719476736*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

( 1071 8225.  *R.A25.*R.*Z*SA2*ZA23*(S_v)A2)/(4947802324992*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(33848465467.*R.A26*SA2*ZA24*(S_v)A2)/(422212465065984*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(272987.  *R.A26.*R.*ZA2*SA2*ZA24*(S_v)A2)/(8796093022208*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(1 1 158205. *R  A27.*R.*Z*SA2*ZA25*(S_v)A2)/(3958241 8599936*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(2475004596  l.*R.A28*SA2*ZA26*(S_v)A2)/(  1266637395 197952*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(1 1305.*R.A28.*R.*ZA2*SA2*ZA26*(S_v)A2)/(439804651 1 104*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(6450277. *R.A29.*R.*Z*SA2*ZA27*(S_v)A2)/(21 1 106232532992*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(5906459401  l.*R.A30*SA2*ZA28*(S_v)A2)/(135 107988821 1 1488*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(24225.  *R.A30.*R.*ZA2*SA2*ZA28*(S_v)A2)/(  14073  7488355328*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(4624109.*R.A31.*R.*Z*SA2*ZA29*(S_v)A2)/(1688849860263936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(36553306561.*R.A32*SA2*ZA30*(S_v)A2)/(40532396646334464*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(323.*R.A32.*R.*ZA2*SA2*ZA30*(S_v)A2)/(35184372088832*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(679915.*R.A33.*R.*Z*SA2*ZA31*(S_v)A2)/(3377699720527872*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(1 1899472 166 1  l.*R.A34*SA2*ZA32*(S_v)A2)/(691 752902764 108 1856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(27455.  *R.A34.*R.*ZA2*SA2*ZA32*(S_v)A2)/(72057594037927936*(l  +  ZA2/4  +  ZA4/64)A4)  + 

( 108205.  *R.A35.*R.*Z*SA2*ZA33*(S_v)A2)/(9007199254740992*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(1 0503079278  l.*R.A36*SA2*ZA34*(S_v)A2)/(345  87645 13  820540928*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(855.*R.A36.*R.*ZA2*SA2*ZA34*(S_v)A2)/(72057594037927936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(99064  l.*R.A3  7.  *R.*Z*SA2*ZA35*(S_v)A2)/(  17293  822569 10270464*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(548568674633. *R.A38*SA2*ZA36*(S_v)A2)/... 

(1 10680464442257309696*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(1 805.  *R.A38.*R.*ZA2*SA2*ZA36*(S_v)A2)/(69 1752902764 108 1856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(294785.  *R.A39.*R.*Z*SA2*ZA37*(S_v)A2)/(  1 3835058055282 163712*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(10322387501. *R.A40*SA2*ZA38*(S_v)A2)/... 

(13  835058055282 163712*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(25.  *R.A40.*R.*ZA2*SA2*ZA38*(S_v)A2)/(69 1752902764 1 081 856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(32965.  *R.A41.*R.*Z*SA2*ZA39*(S_v)A2)/(55340232221 128654848*(1  +  ZA2/4  +  ZA4/64)A4)  + 

( 146260 147 125  l.*R.A42*SA2*ZA40*(S_v)A2)/... 

(141 6709944860893564 1088*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(7. *R.A42.*R.*ZA2*SA2*ZA40*(S_v)A2)/(295 147905 179352825856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 
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( 1 5635.  *R.  A43.*R.*Z*SA2*ZA41*(S_v)A2)/(  1 3281 655733070877 16352*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(185335180013. *R.A44*SA2*ZA42*(S_v)A2)/... 

(141 6709944860893564 1088*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(31 15.  *R.A45.*R.  *Z*SA2*ZA43*(S_v)A2)/(2 1250649 1 7291 340346 1632*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(2057042720599.  *R.A46*SA2*ZA44*(S_v)A2)/(  1 36004 1 54706645782 1544448*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(49.*R.A47.*R.*Z*SA2*ZA45*(S_v)A2)/(56668397794435742564352*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(24026340573. *R.A48*SA2*ZA46*(S_v)A2)/.„ 

(1511 1572745 1828646838272*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(5273670271697.*R.A50*SA2*ZA48*(S_v)A2)/(348170636049013202315378688*(l  +  ZA2/4  +  ZA4/64)A4) 
+  ... 

(37823055319.*R.A52*SA2*ZA50*(S_v)A2)/(29014219670751 100192948224*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(3 1266829573. *R.A54*SA2*ZA52*(S_v)A2)/(309485009821345068724781056*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(305764487.*R.A56*SA2*ZA54*(S_v)A2)/(43521329506126650289422336*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

( 155671 82 1505.*R.A58*SA2*ZA56*(S_v)A2)/(35652673 13 14 1895 191 709477765 12*(1  +  ZA2/4  + 

ZA4/64)A4)  +... 

(8605263625.*R.A60*SA2*ZA58*(S_v)A2)/(3565267313 14 1895 19 1709477765 12*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(44870 15 167.*R.A62*SA2*ZA60*(S_v)A2)/(380295 1800684688204490 109616128*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(64 197 1 3  l.*R.A64*SA2*ZA62*(S_v)A2)/(  126765060022822940 14967032053  76*(1  +  ZA2/4  +  ZA4/64)A4) 
+  ... 

(7366421503.*R.A66*SA2*ZA64*(S_v)A2)/(3894222643901 12072 13978722469 15072*(1  +  ZA2/4  + 

ZA4/64)A4)  +... 

(1 18374655. *R.A68*SA2*ZA66*(S_v)A2)/(1947111321950560360698936123457536*(l  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

( 1032 1 7975.  *R.  A70*SA2*ZA68*(S_v)A2)/(623075623024 1793 1 54236595595064 1 152*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(1169089.*R  A72*SA2*ZA70*(S_v)A2)/(31 153781 151208965771 182977975320576*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(1 64537 1 5.  *R.A74*SA2*ZA72*(S_v)A2)/(23926 103924 1 284857 12268527085046202368*(1  +  ZA2/4  + 
ZA4/64)A4)  +... 

(234365. *R.A76*SA2*ZA74*(S_v)A2)/(23926103924128485712268527085046202368*(l  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(77905.*R.A78*SA2*ZA76*(S_v)A2)/(76563532557211 154279259286672 1478475776*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(175.*R.A80*SA2*ZA78*(S_v)A2)/(25521 1775 1 90703847597530955573  8261 58592*(  1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(49.  *R.A82*SA2*ZA80*(S_v)A2)/(2 177807 148294006 166 1 655974875633 1 65533 184*(1  +  ZA2/4  + 

ZA4/64)A4); 


Brl=0.2; 

Nfl=Brl*[(1024.*R.A2.*ZA4  +  256.*R.A4.*ZA6  +  16.*R.A6.*ZA8)./(4096  +  2048*ZA2  +  384*ZA4  + 
32*ZA6  +  ZA8)]; 

Nsl=Nfl+Nc+Nr; 

Phi  1  =N  f  1  ./[N  c+N  r] ; 

Be  1=1  ./[1+Phil]; 

Gfl=Nfl./Nsl; 

Grl=[Nr]./Nsl; 


Br2=0.4; 
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Nf2=Br2*[(1024.*R.A2.*ZA4  +  256.*R  A4.*ZA6  +  16.*R  A6.*ZA8)./(4096  +  2048*ZA2 
32*ZA6  +  ZA8)]; 

Ns2=Nf2+Nc+Nr; 

Phi2=Nf2./[Nc+Nr]; 

Be2=l./[1+Phi2]; 

Gf2=Nf2./Ns2; 

Gr2=|Nr|./Ns2; 


Br3=0.6; 

NG=Br3*[(1024.*R.A2.*ZA4  +  256.*R  A4.*ZA6  +  16.*R  A6.*ZA8)./(4096  +  2048*ZA2 
32*ZA6  +  ZA8)]; 

Ns3=Nf3+Nc+Nr; 

Phi3=Nf3./[Nc+Nr]; 

Be3=l./[1+Phi3]; 

Gf3=NG./Ns3; 

Gr3=[Nr]./Ns3; 

Br4=0.8; 

Nf4=Br4*[(1024.*R.A2.*ZA4  +  256.*R  A4.*ZA6  +  16.*R  A6.*ZA8)./(4096  +  2048*ZA2 
32*ZA6  +  ZA8)]; 

Ns4=Nf4+Nc+Nr; 

Phi4=Nf4./[Nc+Nr]; 

Be4=l./[1+Phi4]; 

Gf4=Nf4./Ns4; 

Gr4=[Nr]./Ns4; 


Br5=l; 

Nf5=Br5*[(1024.*R.A2.*ZA4  +  256.*R  A4.*ZA6  +  16.*R  A6.*ZA8)./(4096  +  2048*ZA2 
32*ZA6  +  ZA8)]; 

Ns5=Nf5+Nc+Nr; 

Phi5=Nf5./[Nc+Nr]; 

Be5=l./[1+Phi5]; 

Gf5=Nf5./Ns5; 

Gr5=|Nr|./Ns5; 


Nh=Nc+Nr; 


plot(R,Nsl,'b',R,Ns2,'g',R,Ns3,'r',R,Ns4,'k',R,Ns5,'m') 

%  plot(R,Bel,'b',R,Be2,'g',R,Be3,'r',R,Be4,'k',R,Be5,'m') 

%  plot(R,Phil,'b',R,Phi2,'g',R,Phi3,'r',R,Phi4,'k',R,Phi5,'m') 
%  plot(R,Gfl  ,'b',R,Gf2,'g',R,Gf3,'r',R,Gf4,'k',R,Gf5,'m') 

%  plot(R,Grl,'b',R,Gr2,'g',R,Gr3,'r',R,Gr4,'k',R,Gr5,'m') 

%  plot(R,Nfl  ,'b',R,Nf2,'g',R,Nfi,'r',R,Nf4,'k',R,Nf5,'m') 

%  plot(R,Nh) 

PLOTTOOLS  ON 


+  384*ZA4  + 


+  384*ZA4  + 


+  384*ZA4  + 


+  384*ZA4  + 
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2.2.  Distribution  of  Ns ,  Be ,  O,  GF,  GR,  N F  and  N  H  versus  Y  for  a  range  of 


Z  and  set  of  S ,  Sv,  Br  &  Pe 


S=l;  S_v=l;  Br=l;  Pe=10; 

%  S=5;  S_v=2;  Br0.5;  Pe=2; 

%  %  %  %  %  S=20;  S_v=5;  Br=0.2;  Pe=0.5; 
%  %  %  %  %  S=2;  S_v=l;  Bi=0.8;  Pe=0.5; 

%  %  %  %  %  S=7.5;  S_v=15;  Br=0.6;  Pe=2.5; 
%  %  %  %  %  S=10;  S_v=5;  Br=0.9;  Pe=5; 


q=1.86; 

s=l; 

Dh=250*10A-6; 
R=0:0.005 : 1 ; 


Nc=[l/PeA2]*[16*qA2+sA2*DhA2+8*q*s*Dh]; 


Zl=6.5; 

Nfl=Br*[(ZlA2).*exp(-2.*R.*Zl)+(ZlA2)*exp(-2*Zl)-2*ZlA2.*exp(-Zl-R.*Zl)]; 

Nrl=(R.A2*SA2)/4  +  (25.*R.A2*SA2*(S_v))/(384*(l  +  ZlA2/4  +  Z1A4/64)A2)+ 

(R.A2.*R.*ZlA2*SA2*(S_v))/(4*(l  +  ZlA2/4  +  Z1A4/64)A2) 

(43.*R.A4*SA2*ZlA2*(S_v))/(384*(l  +  ZlA2/4  +  Z1A4/64)A2)... 

+  (5.*R  A5.*R.*Zl*SA2*ZlA3*(S_v))/(32*(l  +  ZlA2/4  +  Z1A4/64)A2)+ 

(407.*R  A6*SA2*ZlA4*(S_v))/(4096*(l  +  ZlA2/4  +  Z1A4/64)A2)  +  ... 

(7.*R.A7.*R.*Zl*SA2*ZlA5*(S_v))/(768*(l  +  ZlA2/4  +  Z1A4/64)A2)  + 

(539.*R.A8*SA2*ZlA6*(S_v))/(4096*(l  +  ZlA2/4  +  Z1A4/64)A2)  +  ... 

(85225.  *R.A10*SA2*ZlA8*(S_v))/(1572864*(l  +  ZlA2/4  +  Z1A4/64)A2)  + 

(6487.*R.A12*SA2*ZlA10*(S_v))/(393216*(l  +  ZlA2/4  +  Z1A4/64)A2)  +  ... 

(17773.*R.A14*SA2*ZlA12*(S_v))/(4194304*(l  +  ZlA2/4  +  Z1A4/64)A2)  + 

(201  l.*R.A16*SA2*ZlA14*(S_v))/(2097152*(l  +  ZlA2/4  +  Z1A4/64)A2)  +  ... 

(206775. *R.A18*SA2*ZlA16*(S_v))/(1073741824*(l  +  ZlA2/4  +  Z1A4/64)A2)  + 

(108275. *R.A20*SA2*ZlA18*(S_v))/(3221225472*(l  +  ZlA2/4  +  Z1A4/64)A2)  +... 
(512435.*R.A22*SA2*ZlA20*(S_v))/(103079215104*(l  +  ZlA2/4  +  Z1A4/64)A2)  + 

(21031.*R.A24*SA2*ZlA22*(S_v))/(34359738368*(l  +  ZlA2/4  +  Z1A4/64)A2)  +... 

(272987. *R.A26*SA2*ZlA24*(S_v))/(439804651 1 104*(1  +  ZlA2/4  +  Z1A4/64)A2)  + 

(1 1305.*R.A28*SA2*ZlA26*(S_v))/(2199023255552*(l  +  ZlA2/4  +  Z1A4/64)A2)  +  ... 

(24225.  *R.A30*SA2*ZlA28*(S_v))/(70368744177664*(l  +  ZlA2/4  +  Z1A4/64)A2)  + 

(323.  *R.A32*SA2*ZlA30*(S_v))/(  175921 860444 16*(1  +  ZlA2/4  +  Z1A4/64)A2)  +  ... 

(27455.  *R.A34*SA2*ZlA32*(S_v))/(36028797018963968*(l  +  ZlA2/4  +  Z1A4/64)A2)  + 

(855.*R.A36*SA2*ZlA34*(S_v))/(36028797018963968*(l  +  ZlA2/4  +  Z1A4/64)A2)  +  ... 
(1805.*R.A38*SA2*ZlA36*(S_v))/(3458764513820540928*(l  +  ZlA2/4  +  Z1A4/64)A2)  + 

(25.*R.A40*SA2*ZlA38*(S_v))/(3458764513820540928*(l  +  ZlA2/4  +  Z1A4/64)A2)  +  ... 

(7.  *R.A42*SA2  *ZlA40*(S_v))/(  1475739525896764 12928*(1  +  ZlA2/4  +  Z1A4/64)A2)  + 

(625.*R.A2*SA2*(S_v)A2)/(147456*(l  +  ZlA2/4  +  Z1A4/64)A4)  +  ... 

(25.*R.A2.*R.*ZlA2*SA2*(S_v)A2)/(768*(l  +  ZlA2/4  +  Z1A4/64)A4)  + 

(R.A2.*R.*ZlA4*SA2*(S_v)A2)/(16*(l  +  ZlA2/4  +  Z1A4/64)A4)  -  ... 

(1075.*R.A4*SA2*ZlA2*(S_v)A2)/(73728*(l  +  ZlA2/4  +  Z1A4/64)A4) 

(43.*R.A4.*R.*ZlA2*SA2*ZlA2*(S_v)A2)/(768*(l  +  ZlA2/4  +  Z1A4/64)A4)  +  ... 
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(125.*R.A5.*R.*Zl*SA2*ZlA3*(S_v)A2)/(6144*(l  +  ZlA2/4  +  Z1A4/64)A4)  + 

(5.*R.A5.*R.*ZlA3*SA2*ZlA3*(S_v)A2)/(64*(l  +  ZlA2/4  +  Z1A4/64)A4)  +  ... 

(60109.*R.A6*SA2*ZlA4*(S_v)A2)/(2359296*(l  +  ZlA2/4  +  Z1A4/64)A4)  + 

(407.*R.A6.*R.*ZlA2*SA2*ZlA4*(S_v)A2)/(8192*(l  +  ZlA2/4  +  Z1A4/64)A4)  -  ... 

(4985.*R.A7.*R.*Zl*SA2*ZlA5*(S_v)A2)/(147456*(l  +  ZlA2/4  +  Z1A4/64)A4)  + 

(7.*R.A7.*R.*ZlA3*SA2*ZlA5*(S_v)A2)/(1536*(l  +  ZlA2/4  +  Z1A4/64)A4)  - ... 

(671.*R.A8*SA2*ZlA6*(S_v)A2)/(131072*(l  +  ZlA2/4  +  Z1A4/64)A4)  + 

(739.*R  A8.*R.*ZlA2*SA2*ZlA6*(S_v)A2)/(8192*(l  +  ZlA2/4  +  Z1A4/64)A4)  +  ... 
(17111.*R.A9.*R.*Zl*SA2*ZlA7*(S_v)A2)/(589824*(l  +  ZlA2/4  +  Z1A4/64)A4) 

(3787661. *R.A10*SA2*ZlA8*(S_v)A2)/(301989888*(l  +  ZlA2/4  +  Z1A4/64)A4)  +... 
(31395.*R.A10.*R.*ZlA2*SA2*ZlA8*(S_v)A2)/(1048576*(l  +  ZlA2/4  +  Z1A4/64)A4)  + 

(67529.  *R.All.*R.*Zl*SA2*ZlA9*(S_v)A2)/(1572864*(l  +  ZlA2/4  +  Z1A4/64)A4)  +... 
(1627151.*R.A12*SA2*ZlA10*(S_v)A2)/(100663296*(l  +  ZlA2/4  +  Z1A4/64)A4)  + 

(19657.*R.A12.*R.*ZlA2*SA2*ZlA10*(S_v)A2)/(2359296*(l  +  ZlA2/4  +  Z1A4/64)A4)  +  ... 

(486493.  *R.A1 3.  *R.  *Z  1  *SA2*Z  1 A1  l*(S_v)A2)/(25165824*(l  +  ZlA2/4  +  Z1A4/64)A4)  + 

(241027273. *R.A14*SA2*ZlA12*(S_v)A2)/(9663676416*(l  +  ZlA2/4  +  Z1A4/64)A4)  +  ... 
(17773.*R.A14.*R.*ZlA2*SA2*ZlA12*(S_v)A2)/(8388608*(l  +  ZlA2/4  +  Z1A4/64)A4)  + 

(3710335.*R.A15.*R.*Zl*SA2*ZlA13*(S_v)A2)/(603979776*(l  +  ZlA2/4  +  Z1A4/64)A4)  +  ... 

(53  842355.  *R.A16*SA2*ZlA14*(S_v)A2)/(3221225472*(l  +  ZlA2/4  +  Z1A4/64)A4)  + 

(201  l.*R.A16.*R.*ZlA2*SA2*ZlA14*(S_v)A2)/(4194304*(l  +  ZlA2/4  +  Z1A4/64)A4)  +  ... 
(981421.*R.A17.*R.*Zl*SA2*ZlA15*(S_v)A2)/(603979776*(l  +  ZlA2/4  +  Z1A4/64)A4)  + 

(19618549477.*R.A18*SA2*ZlA16*(S_v)A2)/(2473901 162496*(1  +  ZlA2/4  +  Z1A4/64)A4)  +... 

(206775.  *R.A1 8.  *R.*ZlA2*SA2*ZlA16*(S_v)A2)/(2147483648*(l  +  ZlA2/4  +  Z1A4/64)A4)  + 

(60705  l.*R.A19.*R.*Zl*SA2*ZlA17*(S_v)A2)/(  161 06 12736*(1  +  ZlA2/4  +  Z1A4/64)A4)  +  ... 

(94466866  l.*R.A20*SA2*ZlA18*(S_v)A2)/(309237645312*(l  +  ZlA2/4  +  Z1A4/64)A4)  + 

(108275.*R  A20.*R.*ZlA2*SA2*ZlA18*(S_v)A2)/(6442450944*(l  +  ZlA2/4  +  Z1A4/64)A4)  +  ... 

(4002553. *R.A21.*R.*Zl*SA2*ZlA19*(S_v)A2)/(51539607552*(l  +  ZlA2/4  +  Z1A4/64)A4)  + 

(3348433219.*R.A22*SA2*ZlA20*(S_v)A2)/(3298534883328*(l  +  ZlA2/4  +  Z1A4/64)A4)  +  ... 
(512435.*R.A22.*R.*ZlA2*SA2*ZlA20*(S_v)A2)/(206158430208*(l  +  ZlA2/4  +  Z1A4/64)A4)  + 

(5778425.*R.A23.*R.*Zl*SA2*ZlA21*(S_v)A2)/(412316860416*(l  +  ZlA2/4  +  Z1A4/64)A4)  +  ... 
(14846261 11.  *R.A24*SA2*ZlA22*(S_v)A2)/(4947802324992*(l  +  ZlA2/4  +  Z1A4/64)A4)  + 

(21031.*R.A24.*R.*ZlA2*SA2*ZlA22*(S_v)A2)/(68719476736*(l  +  ZlA2/4  +  Z1A4/64)A4)  +  ... 

( 1071 8225.  *R.A25.*R.*Zl*SA2*ZlA23*(S_v)A2)/(4947802324992*(l  +  ZlA2/4  +  Z1A4/64)A4)  + 

(33848465467.*R.A26*SA2*ZlA24*(S_v)A2)/(422212465065984*(l  +  ZlA2/4  +  Z1A4/64)A4)  +  ... 

(272987.  *R.A26.*R.*ZlA2*SA2*ZlA24*(S_v)A2)/(8796093022208*(l  +  ZlA2/4  +  Z1A4/64)A4)  + 

(1 1 158205. *R  A27.*R.*Zl*SA2*ZlA25*(S_v)A2)/(39582418599936*(l  +  ZlA2/4  +  Z1A4/64)A4)  +  ... 
(24750045961. *R.A28*SA2*ZlA26*(S_v)A2)/(1266637395197952*(l  +  ZlA2/4  +  Z1A4/64)A4)  + 

(1 1305.*R.A28.*R.*ZlA2*SA2*ZlA26*(S_v)A2)/(439804651 1 104*(1  +  ZlA2/4  +  Z1A4/64)A4)  +  ... 
(6450277. *R.A29.*R.*Zl*SA2*ZlA27*(S_v)A2)/(21 1 106232532992*(1  +  ZlA2/4  +  Z1A4/64)A4)  + 
(5906459401  l.*R.A30*SA2*ZlA28*(S_v)A2)/(135107988821 1 1488*(1  +  ZlA2/4  +  Z1A4/64)A4)  +  ... 
(24225.  *R.A30.*R.*ZlA2*SA2*ZlA28*(S_v)A2)/(140737488355328*(l  +  ZlA2/4  +  Z1A4/64)A4)  + 
(4624109.*R.A31.*R.*Zl*SA2*ZlA29*(S_v)A2)/(1688849860263936*(l  +  ZlA2/4  +  Z1A4/64)A4)  +  ... 
(36553306561. *R.A32*SA2*ZlA30*(S_v)A2)/(40532396646334464*(l  +  ZlA2/4  +  Z1A4/64)A4)  + 
(323. *R  A32.*R.*ZlA2*SA2*ZlA30*(S_v)A2)/(35184372088832*(l  +  ZlA2/4  +  Z1A4/64)A4)  +  ... 
(679915.*R.A33.*R.*Zl*SA2*ZlA31*(S_v)A2)/(3377699720527872*(l  +  ZlA2/4  +  Z1A4/64)A4)  + 
(1 18994721661 1. *R.  A34*SA2*ZlA32*(S_v)A2)/(6917529027641081856*(l  +ZlA2/4+ZlA4/64)A4)  +  ... 
(27455.  *R.A34.*R.*ZlA2*SA2*ZlA32*(S_v)A2)/(72057594037927936*(l  +  ZlA2/4  +  Z1A4/64)A4)  + 
( 108205.  *R.A35.*R.*Zl*SA2*ZlA33*(S_v)A2)/(9007199254740992*(l  +  ZlA2/4  +  Z1A4/64)A4)  +  ... 

(1 0503079278  l.*R.A36*SA2*ZlA34*(S_v)A2)/(3458764513820540928*(l  +  ZlA2/4  +  Z1A4/64)A4)  + 
(855.*R.A36.*R.*ZlA2*SA2*ZlA34*(S_v)A2)/(72057594037927936*(l  +  ZlA2/4  +  Z1A4/64)A4)  +  ... 
(99064 1.  *R.  A37.*R.*Zl*SA2*ZlA35*(S_v)A2)/(  17293822569 10270464*(1  +  ZlA2/4  +  Z1A4/64)A4)  + 
(548568674633. *R.A38*SA2*ZlA36*(S_v)A2)/... 

(1 10680464442257309696*(1  +  ZlA2/4  +  Z1A4/64)A4)  + 

(1 805.  *R.A38.*R.*ZlA2*SA2*ZlA36*(S_v)A2)/(69 17529027641 08 1856*(1  +  ZlA2/4  +  Z1A4/64)A4)  +  ... 
(294785.  *R.  A39.  *R.*Zl*SA2*ZlA37*(S_v)A2)/(  1 3835058055282 163  7 12*(1  +  ZlA2/4  +  Z1A4/64)A4)  + 
(10322387501. *R.A40*SA2*ZlA38*(S_v)A2)/... 
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(13  835058055282 163  7 12*(1  +  ZlA2/4  +  Z1A4/64)A4)  + 

(25.  *R.  A40.  *R.*ZlA2*SA2*ZlA38*(S_v)A2)/(69 17529027641 08 1856*(1  +  ZlA2/4  +  Z1A4/64)A4)  +  ... 
(32965.  *R.A41.*R.*Zl*SA2*ZlA39*(S_v)A2)/(55340232221 128654848*(1  +  ZlA2/4  +  Z1A4/64)A4)  + 
(1462601471251. *R.A42*SA2*ZlA40*(S_v)A2)/... 

(141 6709944860893564 1088*(1  +  ZlA2/4  +  Z1A4/64)A4)  + 

(7.  *R.A42.*R.*ZlA2*SA2*ZlA40*(S_v)A2)/(295 147905 179352825856*(1  +  ZlA2/4  +  Z1A4/64)A4)  +  ... 

( 1 5635.  *R.  A43.  *R.  *Z1  *SA2*Z  lA41*(S_v)A2)/(  1328 1 655733070877 16352*(1  +  ZlA2/4  +  Z1A4/64)A4)  + 
(185335180013. *R.A44*SA2*ZlA42*(S_v)A2)/„. 

(141 6709944860893564 1 088*(1  +  ZlA2/4  +  Z1A4/64)A4)  + 

(31 15.  *R.A45.*R.*Z1  *SA2*Z1A43  *(S_v)A2)/(2 1250649 1729 1340346 1632*(1  +  ZlA2/4  +  Z1A4/64)A4)  +  ... 
(2057042720599.  *R.A46*SA2*Z  lA44*(S_v)A2)/(l  36004 1 54706645782 1544448*(1  +  ZlA2/4  + 
Z1A4/64)A4)  +  ... 

(49.*R.A47.*R.*Zl*SA2*ZlA45*(S_v)A2)/(56668397794435742564352*(l  +  ZlA2/4  +  Z1A4/64)A4)  + 
(24026340573. *R.A48*SA2*ZlA46*(S_v)A2)/... 

(1511 1572745 1828646838272*(1  +  ZlA2/4  +  Z1A4/64)A4)  + 

(5273670271697.*R.A50*SA2*ZlA48*(S_v)A2)/(348170636049013202315378688*(l  +  ZlA2/4  + 

Z1A4/64)A4)  +  ... 

(3  78230553 1 9.  *R.A52*SA2*Z1  A50*(S_v)A2)/(290 142 1967075 1 1001 92948224*(1  +  ZlA2/4  + 

Z1A4/64)A4)  +  ... 

(3 1266829573.  *R.A54*SA2*ZlA52*(S_v)A2)/(309485009821 34506872478 1056*(1  +  ZlA2/4  + 

Z1A4/64)A4)  +  ... 

(305764487.*R.A56*SA2*ZlA54*(S_v)A2)/(43521329506126650289422336*(l  +  ZlA2/4  +  Z1A4/64)A4)  + 

( 155671 82 1505.*R.A58*SA2*ZlA56*(S_v)A2)/(35652673 13 14 1895 19 1709477765 12*(1  +  ZlA2/4  + 

Z1A4/64)A4)  +... 

(8605263625. *R.A60*SA2*ZlA58*(S_v)A2)/(356526731314189519170947776512*(l  +  ZlA2/4  + 

Z1A4/64)A4)  +  ... 

(44870 15 167.*R.A62*SA2*ZlA60*(S_v)A2)/(3802951800684688204490109616128*(l  +  ZlA2/4  + 

Z1A4/64)A4)  +  ... 

(64 197 1 3  l.*R.A64*SA2*ZlA62*(S_v)A2)/(  126765060022822940 1496703205376*(1  +  ZlA2/4  + 

Z1A4/64)A4)  +  ... 

(7366421503. *R.A66*SA2*ZlA64*(S_v)A2)/(3894222643901120721397872246915072*(l  +  ZlA2/4  + 
Z1A4/64)A4)  +... 

(1 18374655. *R.A68*SA2*ZlA66*(S_v)A2)/(1947111321950560360698936123457536*(l  +  ZlA2/4  + 

Z1A4/64)A4)  +  ... 

( 1032 1 7975.  *R.  A70*SA2*Z1  A68*(S_v)A2 )/(623075623024 1793 1 54236595595064 1152*(1  +  ZlA2/4  + 
Z1A4/64)A4)  +  ... 

(1 169089.  *R.A72*SA2*ZlA70*(S_v)A2)/(3 1 15378 1 151208965771 182977975320576*(1  +  ZlA2/4  + 

Z1A4/64)A4)  +  ... 

( 1 64537 1 5.  *R.A74*SA2*ZlA72*(S_v)A2)/(23926 1 03924 1 284857 12268527085046202368*(1  +  ZlA2/4  + 
Z1A4/64)A4)  +... 

(234365. *R.A76*SA2*ZlA74*(S_v)A2)/(23926103924128485712268527085046202368*(l  +  ZlA2/4  + 
Z1A4/64)A4)  +  ... 

(77905.*R.A78*SA2*ZlA76*(S_v)A2)/(7656353255721 1 1542792592866721478475776*(1  +  ZlA2/4  + 
Z1A4/64)A4)  +  ... 

(175.*R.A80*SA2*ZlA78*(S_v)A2)/(25521 1775 190703  847597530955573  8261 58592*(  1  +  ZlA2/4  + 
Z1A4/64)A4)  +  ... 

(49.  *R.A82*SA2*ZlA80*(S_v)A2)/(2 177807 148294006 166 1 655974875633 165533 184*(1  +  ZlA2/4  + 

Z1A4/64)A4); 


Nsl=Nfl+Nc+Nrl; 
Phil=Nfl./[Nc+Nrl]; 
Be  1=1  ./[1+Phil]; 
Gfl=Nfl./Nsl; 
Grl=[Nrl]./Nsl; 
Nhl=Nc+Nrl ; 
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+ 


Z2A4/64)A2)+ 


Z2=7.5; 

Nf2=Br*[(Z2A2).*exp(-2.*R.*Z2)+(Z2A2)*exp(-2*Z2)-2*Z2A2.*exp(-Z2-R.*Z2)]; 

Nr2=(R.A2*SA2)/4  +  (25. *R  A2*SA2*(S_v))/(384*(l  +  Z2A2/4 

(R  A2.*R.*Z2A2*SA2*(S_v))/(4*(l  +  Z2A2/4  +  Z2A4/64)A2) 

(43.*R.A4*SA2*Z2A2*(S_v))/(384*(l  +  Z2A2/4  +  Z2A4/64)A2)... 

+  (5.*R.A5.*R.*Z2*SA2*Z2A3*(S_v))/(32*(l  +  Z2A2/4  +  Z2A4/64)A2)+ 

(407.*R  A6*SA2*Z2A4*(S_v))/(4096*(l  +  Z2A2/4  +  Z2A4/64)A2)  +  ... 

(7.*R.A7.*R.*Z2*SA2*Z2A5*(S_v))/(768*(l  +  Z2A2/4  +  Z2A4/64)A2)  + 

(539.*R  A8*SA2*Z2A6*(S_v))/(4096*(l  +  Z2A2/4  +  Z2A4/64)A2)  +  ... 

(85225.  *R.A10*SA2*Z2A8*(S_v))/(1572864*(l  +  Z2A2/4  +  Z2A4/64)A2)  + 

(6487.*R.A12*SA2*Z2A10*(S_v))/(393216*(l  +  Z2A2/4  +  Z2A4/64)A2)  +  ... 

(17773.*R.A14*SA2*Z2A12*(S_v))/(4194304*(l  +  Z2A2/4  +  Z2A4/64)A2)  + 

(201  l.*R.A16*SA2*Z2A14*(S_v))/(2097152*(l  +  Z2A2/4  +  Z2A4/64)A2)  +  ... 

(206775.  *R.A18*SA2*Z2A16*(S_v))/(  1073  74 1824*(1  +  Z2A2/4  +  Z2A4/64)A2)  + 

(108275. *R.A20*SA2*Z2A18*(S_v))/(3221225472*(l  +  Z2A2/4  +  Z2A4/64)A2)  +... 
(512435.*R.A22*SA2*Z2A20*(S_v))/(103079215104*(l  +  Z2A2/4  +  Z2A4/64)A2)  + 

(21031.*R.A24*SA2*Z2A22*(S_v))/(34359738368*(l  +  Z2A2/4  +  Z2A4/64)A2)  +... 

(272987. *R.A26*SA2*Z2A24*(S_v))/(439804651 1 104*(1  +  Z2A2/4  +  Z2A4/64)A2)  + 

(1 1305.*R.A28*SA2*Z2A26*(S_v))/(2199023255552*(l  +  Z2A2/4  +  Z2A4/64)A2)  +  ... 

(24225.  *R.A30*SA2*Z2A28*(S_v))/(70368744177664*(l  +  Z2A2/4  +  Z2A4/64)A2)  + 

(323.  *R.A32*SA2*Z2A30*(S_v))/(  175921 860444 16*(1  +  Z2A2/4  +  Z2A4/64)A2)  +  ... 

(27455.  *R.A34*SA2*Z2A32*(S_v))/(36028797018963968*(l  +  Z2A2/4  +  Z2A4/64)A2)  + 

(855.*R  A36*SA2*Z2A34*(S_v))/(36028797018963968*(l  +  Z2A2/4  +  Z2A4/64)A2)  +  ... 
(1805.*R.A38*SA2*Z2A36*(S_v))/(3458764513820540928*(l  +  Z2A2/4  +  Z2A4/64)A2)  + 

(25.*R.A40*SA2*Z2A38*(S_v))/(3458764513820540928*(l  +  Z2A2/4  +  Z2A4/64)A2)  +  ... 

(7.  *R.A42*SA2  *Z2A40*(S_v))/(  1475739525896764 12928*(1  +  Z2A2/4  +  Z2A4/64)A2)  + 

(625.*R.A2*SA2*(S_v)A2)/(147456*(l  +  Z2A2/4  +  Z2A4/64)A4)  +  ... 

(25.*R.A2.*R.*Z2A2*SA2*(S_v)A2)/(768*(l  +  Z2A2/4  +  Z2A4/64)A4)  + 

(R  A2.*R.*Z2A4*SA2*(S_v)A2)/(16*(l  +  Z2A2/4  +  Z2A4/64)A4)  -  ... 

(1075.*R.A4*SA2*Z2A2*(S_v)A2)/(73728*(l  +  Z2A2/4  +  Z2A4/64)A4) 

(43.*R.A4.*R.*Z2A2*SA2*Z2A2*(S_v)A2)/(768*(l  +  Z2A2/4  +  Z2A4/64)A4)  +  ... 

(125.*R.A5.*R.*Z2*SA2*Z2A3*(S_v)A2)/(6144*(l  +  Z2A2/4  +  Z2A4/64)A4)  + 

(5.*R.A5.*R.*Z2A3*SA2*Z2A3*(S_v)A2)/(64*(l  +  Z2A2/4  +  Z2A4/64)A4)  +  ... 

(60109.*R.A6*SA2*Z2A4*(S_v)A2)/(2359296*(l  +  Z2A2/4  +  Z2A4/64)A4)  + 

(407.*R.A6.*R.*Z2A2*SA2*Z2A4*(S_v)A2)/(8192*(l  +  Z2A2/4  +  Z2A4/64)A4)  -  ... 
(4985.*R.A7.*R.*Z2*SA2*Z2A5*(S_v)A2)/(147456*(l  +  Z2A2/4  +  Z2A4/64)A4)  + 

(7.*R.A7.*R.*Z2A3*SA2*Z2A5*(S_v)A2)/(1536*(l  +  Z2A2/4  +  Z2A4/64)A4)  - ... 

(671.*R.A8*SA2*Z2A6*(S_v)A2)/(131072*(l  +  Z2A2/4  +  Z2A4/64)A4)  + 

(739.*R.A8.*R.*Z2A2*SA2*Z2A6*(S_v)A2)/(8192*(l  +  Z2A2/4  +  Z2A4/64)A4)  +  ... 
(17111.*R.A9.*R.*Z2*SA2*Z2A7*(S_v)A2)/(589824*(l  +  Z2A2/4  +  Z2A4/64)A4) 

(3787661. *R.A10*SA2*Z2A8*(S_v)A2)/(301989888*(l  +  Z2A2/4  +  Z2A4/64)A4)  +... 

(31395.*R  A10.*R.*Z2A2*SA2*Z2A8*(S_v)A2)/(1048576*(l  +  Z2A2/4  +  Z2A4/64)A4)  + 

(67529.  *R.All.*R.*Z2*SA2*Z2A9*(S_v)A2)/(1572864*(l  +  Z2A2/4  +  Z2A4/64)A4)  +... 

(1627151. *R.A12*SA2*Z2A10*(S_v)A2)/(100663296*(l  +  Z2A2/4  +  Z2A4/64)A4)  + 

(19657.*R.A12.*R.*Z2A2*SA2*Z2A10*(S_v)A2)/(2359296*(l  +  Z2A2/4  +  Z2A4/64)A4)  +  ... 

(486493.  *R.A1 3.  *R.  *Z2*SA2*Z2A1  l*(S_v)A2)/(25165824*(l  +  Z2A2/4  +  Z2A4/64)A4)  + 

(24 1 027273.  *R.A14*SA2*Z2A12*(S_v)A2)/(9663676416*(l  +  Z2A2/4  +  Z2A4/64)A4)  +  ... 
(17773.*R.A14.*R.*Z2A2*SA2*Z2A12*(S_v)A2)/(8388608*(l  +  Z2A2/4  +  Z2A4/64)A4)  + 

(3710335.*R.A15.*R.*Z2*SA2*Z2A13*(S_v)A2)/(603979776*(l  +  Z2A2/4  +  Z2A4/64)A4)  +  ... 

(53  842355.  *R.A16*SA2*Z2A14*(S_v)A2)/(3221225472*(l  +  Z2A2/4  +  Z2A4/64)A4)  + 

(201  l.*R.A16.*R.*Z2A2*SA2*Z2A14*(S_v)A2)/(4194304*(l  +  Z2A2/4  +  Z2A4/64)A4)  +  ... 

(981421.*R  A17.*R.*Z2*SA2*Z2A15*(S_v)A2)/(603979776*(l  +  Z2A2/4  +  Z2A4/64)A4)  + 

( 1961 8549477.  *R.A18*SA2*Z2A1 6*(S_v)A2)/(247390 1 162496*(1  +  Z2A2/4  +  Z2A4/64)A4)  +... 
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(206775.  *R.A1 8.  *R.*Z2A2*SA2*Z2A16*(S_v)A2)/(2147483648*(l  +  Z2A2/4  +  Z2A4/64)A4)  + 

(607051. *R.A19.*R.*Z2*SA2*Z2A17*(S_v)A2)/(1610612736*(l  +  Z2A2/4  +  Z2A4/64)A4)  +  ... 

(94466866  l.*R.A20*SA2*Z2A18*(S_v)A2)/(309237645312*(l  +  Z2A2/4  +  Z2A4/64)A4)  + 

(108275.*R.A20.*R.*Z2A2*SA2*Z2A18*(S_v)A2)/(6442450944*(l  +  Z2A2/4  +  Z2A4/64)A4)  +  ... 

(4002553.  *R.A21.*R.*Z2*SA2*Z2A19*(S_v)A2)/(51539607552*(l  +  Z2A2/4  +  Z2A4/64)A4)  + 

(3348433219.*R  A22*SA2*Z2A20*(S_v)A2)/(3298534883328*(l  +  Z2A2/4  +  Z2A4/64)A4)  +  ... 
(512435.*R.A22.*R.*Z2A2*SA2*Z2A20*(S_v)A2)/(206158430208*(l  +  Z2A2/4  +  Z2A4/64)A4)  + 

(5778425.*R.A23.*R.*Z2*SA2*Z2A21*(S_v)A2)/(412316860416*(l  +  Z2A2/4  +  Z2A4/64)A4)  +  ... 
(14846261 11.  *R.A24*SA2*Z2A22*(S_v)A2)/(4947802324992*(l  +  Z2A2/4  +  Z2A4/64)A4)  + 

(21031.*R.A24.*R.*Z2A2*SA2*Z2A22*(S_v)A2)/(68719476736*(l  +  Z2A2/4  +  Z2A4/64)A4)  +  ... 

( 1071 8225.  *R.A25.*R.*Z2*SA2*Z2A23*(S_v)A2)/(4947802324992*(l  +  Z2A2/4  +  Z2A4/64)A4)  + 

(33848465467.*R.A26*SA2*Z2A24*(S_v)A2)/(422212465065984*(l  +  Z2A2/4  +  Z2A4/64)A4)  +  ... 

(272987.  *R.A26.*R.*Z2A2*SA2*Z2A24*(S_v)A2)/(8796093022208*(l  +  Z2A2/4  +  Z2A4/64)A4)  + 

(1 1 158205. *R.A27.*R.*Z2*SA2*Z2A25*(S_v)A2)/(39582418599936*(l  +  Z2A2/4  +  Z2A4/64)A4)  +  ... 
(24750045961. *R.A28*SA2*Z2A26*(S_v)A2)/(1266637395197952*(l  +  Z2A2/4  +  Z2A4/64)A4)  + 

(1 1305.*R.A28.*R.*Z2A2*SA2*Z2A26*(S_v)A2)/(439804651 1 104*(1  +  Z2A2/4  +  Z2A4/64)A4)  +  ... 
(6450277. *R.A29.*R.*Z2*SA2*Z2A27*(S_v)A2)/(21 1 106232532992*(1  +  Z2A2/4  +  Z2A4/64)A4)  + 

(5906459401  l.*R.A30*SA2*Z2A28*(S_v)A2)/(135107988821 1 1488*(1  +  Z2A2/4  +  Z2A4/64)A4)  +  ... 
(24225.  *R.A30.*R.*Z2A2*SA2*Z2A28*(S_v)A2)/(140737488355328*(l  +  Z2A2/4  +  Z2A4/64)A4)  + 

(46241 09.  *R.A31.*R.*Z2*SA2*Z2A29*(S_v)A2)/(1688849860263936*(l  +  Z2A2/4  +  Z2A4/64)A4)  +  ... 
(36553306561. *R.A32*SA2*Z2A30*(S_v)A2)/(40532396646334464*(l  +  Z2A2/4  +  Z2A4/64)A4)  + 

(323.*R.A32.*R.*Z2A2*SA2*Z2A30*(S_v)A2)/(35184372088832*(l  +  Z2A2/4  +  Z2A4/64)A4)  +  ... 
(679915.*R.A33.*R.*Z2*SA2*Z2A31*(S_v)A2)/(3377699720527872*(l  +  Z2A2/4  +  Z2A4/64)A4)  + 

(1 18994721661 1. *R.  A34*SA2*Z2A32*(S_v)A2)/(6917529027641081856*(l  +Z2A2/4+Z2A4/64)A4)  +  ... 
(27455.  *R.A34.*R.*Z2A2*SA2*Z2A32*(S_v)A2)/(72057594037927936*(l  +  Z2A2/4  +  Z2A4/64)A4)  + 
(108205.*R.A35.*R.*Z2*SA2*Z2A33*(S_v)A2)/(9007199254740992*(l  +  Z2A2/4  +  Z2A4/64)A4)  +  ... 

(1 0503079278  l.*R.A36*SA2*Z2A34*(S_v)A2)/(3458764513820540928*(l  +  Z2A2/4  +  Z2A4/64)A4)  + 
(855.*R.A36.*R.*Z2A2*SA2*Z2A34*(S_v)A2)/(72057594037927936*(l  +  Z2A2/4  +  Z2A4/64)A4)  +  ... 
(99064  l.*R.A37.*R.*Z2*SA2*Z2A35*(S_v)A2)/(  1 7293822569 10270464*(1  +  Z2A2/4  +  Z2A4/64)A4)  + 
(548568674633. *R.A38*SA2*Z2A36*(S_v)A2)/... 

(1 10680464442257309696*(1  +  Z2A2/4  +  Z2A4/64)A4)  + 

(1 805.  *R.A3  8.  *R.*Z2A2*SA2*Z2A36*(S_v)A2)/(69 17529027641 08 1856*(1  +  Z2A2/4  +  Z2A4/64)A4)  +  ... 
(294785.  *R.A39.*R.*Z2*SA2*Z2A37*(S_v)A2)/(  1 3835058055282 1 637 12*(1  +  Z2A2/4  +  Z2A4/64)A4)  + 
(10322387501. *R.A40*SA2*Z2A38*(S_v)A2)/... 

(138350580552821 637 12*(1  +  Z2A2/4  +  Z2A4/64)A4)  + 

(25.  *R.A40.*R.*Z2A2*SA2*Z2A38*(S_v)A2)/(69 1 752902764 1 08 1856*(1  +  Z2A2/4  +  Z2A4/64)A4)  +  ... 
(32965.  *R.A41.*R.*Z2*SA2*Z2A39*(S_v)A2)/(55340232221 128654848*(1  +  Z2A2/4  +  Z2A4/64)A4)  + 
(1462601471251. *R.A42*SA2*Z2A40*(S_v)A2)/.„ 

(141 6709944860893564 1 088*(1  +  Z2A2/4  +  Z2A4/64)A4)  + 

(7.  *R.A42.*R.*Z2A2*SA2*Z2A40*(S_v)A2)/(295 147905 179352825856*(1  +  Z2A2/4  +  Z2A4/64)A4)  +  ... 

( 1 5635.  *R.  A43.  *R.  *Z2*SA2*Z2A4  l*(S_v)A2)/(  1328 1 655733070877 16352*(1  +  Z2A2/4  +  Z2A4/64)A4)  + 
(185335180013. *R.A44*SA2*Z2A42*(S_v)A2)/... 

(141 6709944860893564 1 088*(1  +  Z2A2/4  +  Z2A4/64)A4)  + 

(31 15.  *R.A45.*R.  *Z2*SA2*Z2A43  *(S_v)A2)/(2 1250649 1729 1340346 1632*(1  +  Z2A2/4  +  Z2A4/64)A4)  +  ... 
(2057042720599.  *R.A46*SA2*Z2A44*(S_v)A2)/(l  36004 1 547066457821 544448*(1  +  Z2A2/4  + 
Z2A4/64)A4)  +  ... 

(49.*R.A47.*R.*Z2*SA2*Z2A45*(S_v)A2)/(56668397794435742564352*(l  +  Z2A2/4  +  Z2A4/64)A4)  + 
(24026340573. *R.A48*SA2*Z2A46*(S_v)A2)/... 

(1511 1572745 1828646838272*(1  +  Z2A2/4  +  Z2A4/64)A4)  + 

(5273670271697.*R.A50*SA2*Z2A48*(S_v)A2)/(348170636049013202315378688*(l  +  Z2A2/4  + 

Z2A4/64)A4)  +  ... 

(3  78230553 1 9.  *R.A52*SA2*Z2A50*(S_v)A2)/(290 142 1967075 1 1001 92948224*(1  +  Z2A2/4  + 

Z2A4/64)A4)  +  ... 

(3 1266829573.  *R.A54*SA2*Z2A52*(S_v)A2)/(309485009821 34506872478 1056*(1  +  Z2A2/4  + 

Z2A4/64)A4)  +  ... 
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(305764487.*R.A56*SA2*Z2A54*(S_v)A2)/(43521329506126650289422336*(l  +  Z2A2/4  +  Z2A4/64)A4)  + 

( 155671 82 1505.*R.A58*SA2*Z2A56*(S_v)A2)/(35652673 13 14 1895 191 709477765 12*(1  +  Z2A2/4  + 

Z2A4/64)A4)  +... 

(8605263625. *R.A60*SA2*Z2A58*(S_v)A2)/(356526731314189519170947776512*(l  +  Z2A2/4  + 

Z2A4/64)A4)  +  ... 

(44870 15 167.*R.A62*SA2*Z2A60*(S_v)A2)/(3802951800684688204490109616128*(l  +  Z2A2/4  + 

Z2A4/64)A4)  +  ... 

(64 197 1 3  l.*R.A64*SA2*Z2A62*(S_v)A2)/(  126765060022822940 14967032053  76*(1  +  Z2A2/4  + 

Z2A4/64)A4)  +  ... 

(7366421503. *R.A66*SA2*Z2A64*(S_v)A2)/(3894222643901120721397872246915072*(l  +  Z2A2/4  + 
Z2A4/64)A4)  +... 

(1 18374655. *R.A68*SA2*Z2A66*(S_v)A2)/(1947111321950560360698936123457536*(l  +  Z2A2/4  + 

Z2A4/64)A4)  +  ... 

( 10321 7975.  *R.  A70*SA2*Z2A68*(S_v)A2 )/(623075623024 1793 1 54236595595064 11 52*(1  +  Z2A2/4  + 
Z2A4/64)A4)  +  ... 

(1 169089.  *R.A72*SA2*Z2A70*(S_v)A2)/(3 1 153781 15 120896577 1 1 82977975320576*(1  +  Z2A2/4  + 
Z2A4/64)A4)  +  ... 

( 1 64537 1 5.  *R.A74*SA2*Z2A72*(S_v)A2)/(23926 1 03924 1 284857 12268527085046202368*(1  +  Z2A2/4  + 
Z2A4/64)A4)  +... 

(234365. *R.A76*SA2*Z2A74*(S_v)A2)/(23926103924128485712268527085046202368*(l  +  Z2A2/4  + 
Z2A4/64)A4)  +  ... 

(77905.*R.A78*SA2*Z2A76*(S_v)A2)/(7656353255721 1 1542792592866721478475776*(1  +  Z2A2/4  + 
Z2A4/64)A4)  +  ... 

(175.*R.A80*SA2*Z2A78*(S_v)A2)/(25521 1775 190703  847597530955573826 158592*(  1  +  Z2A2/4  + 
Z2A4/64)A4)  +  ... 

(49.  *R.A82*SA2*Z2A80*(S_v)A2)/(2 177807 148294006 166 1 655974875633 1 65533 184*(1  +  Z2A2/4  + 

Z2A4/64)A4); 


Ns2=Nf2+Nc+Nr2; 

Phi2  =N  f2./[N  c+N  r2  ] ; 

Be2=l./[1+Phi2]; 

Gf2=Nf2./Ns2; 

Gr2=[Nr2]./Ns2; 

Nh2=Nc+Nr2; 


Z3=10; 

NG=Br*[(Z3A2).*exp(-2.*R.*Z3)+(Z3A2)*exp(-2*Z3)-2*Z3A2.*exp(-Z3-R.*Z3)]; 

Nr3=(R.A2*SA2)/4  +  (25. *R  A2*SA2*(S_v))/(384*(l  +  Z3A2/4  +  Z3A4/64)A2)+ 

(R  A2.*R.*Z3A2*SA2*(S_v))/(4*(l  +  Z3A2/4  +  Z3A4/64)A2)  -... 

(43.*R.A4*SA2*Z3A2*(S_v))/(384*(l  +  Z3A2/4  +  Z3A4/64)A2)„. 

+  (5.*R.A5.*R.*Z3*SA2*Z3A3*(S_v))/(32*(l  +  Z3A2/4  +  Z3A4/64)A2)+ 

(407.*R.A6*SA2*Z3A4*(S_v))/(4096*(l  +  Z3A2/4  +  Z3A4/64)A2)  +  ... 

(7.*R.A7.*R.*Z3*SA2*Z3A5*(S_v))/(768*(l  +  Z3A2/4  +  Z3A4/64)A2)  + 

(539.*R  A8*SA2*Z3A6*(S_v))/(4096*(l  +  Z3A2/4  +  Z3A4/64)A2)  +  ... 

(85225.  *R.A10*SA2*Z3A8*(S_v))/(1572864*(l  +  Z3A2/4  +  Z3A4/64)A2)  + 

(6487.*R.A12*SA2*Z3A10*(S_v))/(393216*(l  +  Z3A2/4  +  Z3A4/64)A2)  +  ... 

(17773.*R.A14*SA2*Z3A12*(S_v))/(4194304*(l  +  Z3A2/4  +  Z3A4/64)A2)  + 

(201  l.*R.A16*SA2*Z3A14*(S_v))/(2097152*(l  +  Z3A2/4  +  Z3A4/64)A2)  +  ... 

(206775.  *R.A18*SA2*Z3A16*(S_v))/(  1073  74 1824*(1  +  Z3A2/4  +  Z3A4/64)A2)  + 

(108275. *R.A20*SA2*Z3A18*(S_v))/(3221225472*(l  +  Z3A2/4  +  Z3A4/64)A2)  +... 

(512435. *R.A22*SA2*Z3A20*(S_v))/(103079215104*(l  +  Z3A2/4  +  Z3A4/64)A2)  + 

(21031.*R.A24*SA2*Z3A22*(S_v))/(34359738368*(l  +  Z3A2/4  +  Z3A4/64)A2)  +... 

(272987. *R.A26*SA2*Z3A24*(S_v))/(439804651 1 104*(1  +  Z3A2/4  +  Z3A4/64)A2)  + 

(1 1305.*R.A28*SA2*Z3A26*(S_v))/(2199023255552*(l  +  Z3A2/4  +  Z3A4/64)A2)  +  ... 
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(24225.  *R.A30*SA2*Z3A28*(S_v))/(70368744177664*(l  +  Z3A2/4  +  Z3A4/64)A2)  + 

(323.  *R.A32*SA2*Z3A30*(S_v))/(  17592 1860444 16*(1  +  Z3A2/4  +  Z3A4/64)A2)  +  ... 

(27455.  *R.A34*SA2*Z3A32*(S_v))/(36028797018963968*(l  +  Z3A2/4  +  Z3A4/64)A2)  + 

(855.*R  A36*SA2*Z3A34*(S_v))/(36028797018963968*(l  +  Z3A2/4  +  Z3A4/64)A2)  +  ... 
(1805.*R.A38*SA2*Z3A36*(S_v))/(3458764513820540928*(l  +  Z3A2/4  +  Z3A4/64)A2)  + 

(25.*R.A40*SA2*Z3A38*(S_v))/(3458764513820540928*(l  +  Z3A2/4  +  Z3A4/64)A2)  +  ... 

(7.  *R.A42*SA2*Z3A40*(S_v))/(l  475739525896764 12928*(1  +  Z3A2/4  +  Z3A4/64)A2)  + 

(625.*R.A2*SA2*(S_v)A2)/(147456*(l  +  Z3A2/4  +  Z3A4/64)A4)  +  ... 

(25.*R.A2.*R.*Z3A2*SA2*(S_v)A2)/(768*(l  +  Z3A2/4  +  Z3A4/64)A4)  + 

(R.A2.*R.*Z3A4*SA2*(S_v)A2)/(16*(l  +  Z3A2/4  +  Z3A4/64)A4)  - ... 

(1075.*R.A4*SA2*Z3A2*(S_v)A2)/(73728*(l  +  Z3A2/4  +  Z3A4/64)A4) 

(43.*R.A4.*R.*Z3A2*SA2*Z3A2*(S_v)A2)/(768*(l  +  Z3A2/4  +  Z3A4/64)A4)  +  ... 

(125.*R.A5.*R.*Z3*SA2*Z3A3*(S_v)A2)/(6144*(l  +  Z3A2/4  +  Z3A4/64)A4)  + 

(5.*R.A5.*R.*Z3A3*SA2*Z3A3*(S_v)A2)/(64*(l  +  Z3A2/4  +  Z3A4/64)A4)  +  ... 

(60109.*R.A6*SA2*Z3A4*(S_v)A2)/(2359296*(l  +  Z3A2/4  +  Z3A4/64)A4)  + 

(407.*R  A6.*R.*Z3A2*SA2*Z3A4*(S_v)A2)/(8192*(l  +  Z3A2/4  +  Z3A4/64)A4)  -  ... 

(4985.*R.A7.*R.*Z3*SA2*Z3A5*(S_v)A2)/(147456*(l  +  Z3A2/4  +  Z3A4/64)A4)  + 

(7.*R.A7.*R.*Z3A3*SA2*Z3A5*(S_v)A2)/(1536*(l  +  Z3A2/4  +  Z3A4/64)A4)  - ... 

(671.*R.A8*SA2*Z3A6*(S_v)A2)/(131072*(l  +  Z3A2/4  +  Z3A4/64)A4)  + 

(739.*R  A8.*R.*Z3A2*SA2*Z3A6*(S_v)A2)/(8192*(l  +  Z3A2/4  +  Z3A4/64)A4)  +  ... 
(17111.*R.A9.*R.*Z3*SA2*Z3A7*(S_v)A2)/(589824*(l  +  Z3A2/4  +  Z3A4/64)A4) 

(3787661. *R.A10*SA2*Z3A8*(S_v)A2)/(301989888*(l  +  Z3A2/4  +  Z3A4/64)A4)  +... 

(31395.*R  A10.*R.*Z3A2*SA2*Z3A8*(S_v)A2)/(1048576*(l  +  Z3A2/4  +  Z3A4/64)A4)  + 

(67529.  *R.All.*R.*Z3*SA2*Z3A9*(S_v)A2)/(1572864*(l  +  Z3A2/4  +  Z3A4/64)A4)  +... 

(1627151. *R.A12*SA2*Z3A10*(S_v)A2)/(100663296*(l  +  Z3A2/4  +  Z3A4/64)A4)  + 

(19657.*R.A12.*R.*Z3A2*SA2*Z3A10*(S_v)A2)/(2359296*(l  +  Z3A2/4  +  Z3A4/64)A4)  +  ... 

(486493.  *R.A1 3.  *R.  *Z3  *SA2*Z3  A1  l*(S_v)A2)/(25165824*(l  +  Z3A2/4  +  Z3A4/64)A4)  + 

(24 1 027273.  *R.A14*SA2*Z3A12*(S_v)A2)/(9663676416*(l  +  Z3A2/4  +  Z3A4/64)A4)  +  ... 
(17773.*R.A14.*R.*Z3A2*SA2*Z3A12*(S_v)A2)/(8388608*(l  +  Z3A2/4  +  Z3A4/64)A4)  + 

(3710335.*R.A15.*R.*Z3*SA2*Z3A13*(S_v)A2)/(603979776*(l  +  Z3A2/4  +  Z3A4/64)A4)  +  ... 

(53  842355.  *R.A16*SA2*Z3A14*(S_v)A2)/(3221225472*(l  +  Z3A2/4  +  Z3A4/64)A4)  + 

(201  l.*R.A16.*R.*Z3A2*SA2*Z3A14*(S_v)A2)/(4194304*(l  +  Z3A2/4  +  Z3A4/64)A4)  +  ... 
(981421.*R.A17.*R.*Z3*SA2*Z3A15*(S_v)A2)/(603979776*(l  +  Z3A2/4  +  Z3A4/64)A4)  + 

( 1961 8549477.  *R.A18*SA2*Z3A1 6*(S_v)A2)/(247390 1 162496*(1  +  Z3A2/4  +  Z3A4/64)A4)  +... 

(206775.  *R.A1 8.  *R.*Z3A2*SA2*Z3A16*(S_v)A2)/(2147483648*(l  +  Z3A2/4  +  Z3A4/64)A4)  + 

(607051. *R.A19.*R.*Z3*SA2*Z3A17*(S_v)A2)/(1610612736*(l  +  Z3A2/4  +  Z3A4/64)A4)  +  ... 

(94466866  l.*R.A20*SA2*Z3A18*(S_v)A2)/(30923  76453 12*(1  +  Z3A2/4  +  Z3A4/64)A4)  + 

( 108275.  *R.A20.*R.*Z3A2*SA2*Z3A18*(S_v)A2)/(6442450944*(l  +  Z3A2/4  +  Z3A4/64)A4)  +  ... 

(4002553.  *R.A21.*R.*Z3*SA2*Z3A19*(S_v)A2)/(51539607552*(l  +  Z3A2/4  +  Z3A4/64)A4)  + 

(3348433219.*R  A22*SA2*Z3A20*(S_v)A2)/(3298534883328*(l  +  Z3A2/4  +  Z3A4/64)A4)  +  ... 
(512435.*R.A22.*R.*Z3A2*SA2*Z3A20*(S_v)A2)/(206158430208*(l  +  Z3A2/4  +  Z3A4/64)A4)  + 

(5778425.*R.A23.*R.*Z3*SA2*Z3A21*(S_v)A2)/(412316860416*(l  +  Z3A2/4  +  Z3A4/64)A4)  +  ... 
(14846261 11.  *R.A24*SA2*Z3A22*(S_v)A2)/(4947802324992*(l  +  Z3A2/4  +  Z3A4/64)A4)  + 

(21031.*R.A24.*R.*Z3A2*SA2*Z3A22*(S_v)A2)/(68719476736*(l  +  Z3A2/4  +  Z3A4/64)A4)  +  ... 

( 1071 8225.  *R.A25.*R.*Z3*SA2*Z3A23*(S_v)A2)/(4947802324992*(l  +  Z3A2/4  +  Z3A4/64)A4)  + 

(33848465467.*R.A26*SA2*Z3A24*(S_v)A2)/(422212465065984*(l  +  Z3A2/4  +  Z3A4/64)A4)  +  ... 
(272987.*R.A26.*R.*Z3A2*SA2*Z3A24*(S_v)A2)/(8796093022208*(l  +  Z3A2/4  +  Z3A4/64)A4)  + 

(1 1 158205. *R.A27.*R.*Z3*SA2*Z3A25*(S_v)A2)/(39582418599936*(l  +  Z3A2/4  +  Z3A4/64)A4)  +  ... 
(2475004596  l.*R.A28*SA2*Z3A26*(S_v)A2)/(1266637395197952*(l  +  Z3A2/4  +  Z3A4/64)A4)  + 

(1 1305.*R.A28.*R.*Z3A2*SA2*Z3A26*(S_v)A2)/(43980465 1 1 104*(1  +  Z3A2/4  +  Z3A4/64)A4)  +  ... 
(6450277. *R.A29.*R.*Z3*SA2*Z3A27*(S_v)A2)/(21 1 106232532992*(1  +  Z3A2/4  +  Z3A4/64)A4)  + 

(5906459401  l.*R.A30*SA2*Z3A28*(S_v)A2)/(135107988821 1 1488*(1  +  Z3A2/4  +  Z3A4/64)A4)  +  ... 
(24225.  *R.A30.*R.*Z3A2*SA2*Z3A28*(S_v)A2)/(140737488355328*(l  +  Z3A2/4  +  Z3A4/64)A4)  + 

(4624109.*R.A31.*R.*Z3*SA2*Z3A29*(S_v)A2)/(1688849860263936*(l  +  Z3A2/4  +  Z3A4/64)A4)  +  ... 
(36553306561. *R.A32*SA2*Z3A30*(S_v)A2)/(40532396646334464*(l  +  Z3A2/4  +  Z3A4/64)A4)  + 

(323.*R.A32.*R.*Z3A2*SA2*Z3A30*(S_v)A2)/(35184372088832*(l  +  Z3A2/4  +  Z3A4/64)A4)  +  ... 
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(679915.*R.A33.*R.*Z3*SA2*Z3A31*(S_v)A2)/(3377699720527872*(l  +  Z3A2/4  +  Z3A4/64)A4)  + 
(1 18994721661 1.: *R  A34*SA2*Z3A32*(S_v)A2)/(6917529027641081856*(l  +  Z3A2/4  +  Z3A4/64)A4)  +  ... 
(27455.  *R.A34.*R.*Z3A2*SA2*Z3A32*(S_v)A2)/(72057594037927936*(l  +  Z3A2/4  +  Z3A4/64)A4)  + 
(108205.*R.A35.*R.*Z3*SA2*Z3A33*(S_v)A2)/(9007199254740992*(l  +  Z3A2/4  +  Z3A4/64)A4)  +  ... 

(1 0503079278  l.*R.A36*SA2*Z3A34*(S_v)A2)/(3458764513820540928*(l  +  Z3A2/4  +  Z3A4/64)A4)  + 
(855.*R  A36.*R.*Z3A2*SA2*Z3A34*(S_v)A2)/(72057594037927936*(l  +  Z3A2/4  +  Z3A4/64)A4)  +  ... 
(99064  l.*R.A37.*R.*Z3*SA2*Z3A35*(S_v)A2)/(  17293822569 10270464*(1  +  Z3A2/4  +  Z3A4/64)A4)  + 
(548568674633. *R.A38*SA2*Z3A36*(S_v)A2)/... 

(1 10680464442257309696*(1  +  Z3A2/4  +  Z3A4/64)A4)  + 

(1 805.  *R.A3  8.  *R.*Z3A2*SA2*Z3A36*(S_v)A2)/(69 17529027641 08 1856*(1  +  Z3A2/4  +  Z3A4/64)A4)  +  ... 
(294785.  *R.  A39.*R.*Z3*SA2*Z3A37*(S_v)A2)/(  1 3835058055282 1 637 12*(1  +  Z3A2/4  +  Z3A4/64)A4)  + 
(10322387501. *R.A40*SA2*Z3A38*(S_v)A2)/... 

(13  8350580552821 637 12*(1  +  Z3A2/4  +  Z3A4/64)A4)  + 

(25.  *R.A40.*R.*Z3A2*SA2*Z3A38*(S_v)A2)/(69 17529027641 08 1856*(1  +  Z3A2/4  +  Z3A4/64)A4)  +  ... 
(32965.  *R.A41.*R.*Z3*SA2*Z3A39*(S_v)A2)/(55340232221 128654848*(1  +  Z3A2/4  +  Z3A4/64)A4)  + 
(1462601471251. *R.A42*SA2*Z3A40*(S_v)A2)/„. 

(14167099448608935641088*(1  +  Z3A2/4  +  Z3A4/64)A4)  + 

(7.  *R.A42.*R.*Z3A2*SA2*Z3A40*(S_v)A2)/(295 147905 179352825856*(1  +  Z3A2/4  +  Z3A4/64)A4)  +  ... 

( 1 5635.  *R.  A43.  *R.*Z3*SA2*Z3A41*(S_v)A2)/(  1328 1 655733070877 16352*(1  +  Z3A2/4  +  Z3A4/64)A4)  + 
(185335180013. *R.A44*SA2*Z3A42*(S_v)A2)/.„ 

(141 6709944860893564 1 088*(1  +  Z3A2/4  +  Z3A4/64)A4)  + 

(31 15.  *R.A45.*R.*Z3  *SA2*Z3A43  *(S_v)A2)/(2 1250649 1729 1340346 1632*(1  +  Z3A2/4  +  Z3A4/64)A4)  +  ... 
(2057042720599.  *R.A46*SA2*Z3A44*(S_v)A2)/(l  36004 1 547066457821 544448*(1  +  Z3A2/4  + 
Z3A4/64)A4)  +  ... 

(49.*R.A47.*R.*Z3*SA2*Z3A45*(S_v)A2)/(56668397794435742564352*(l  +  Z3A2/4  +  Z3A4/64)A4)  + 
(24026340573. *R.A48*SA2*Z3A46*(S_v)A2)/... 

(151 1 1572745 1828646838272*(1  +  Z3A2/4  +  Z3A4/64)A4)  + 

(5273670271697.*R.A50*SA2*Z3A48*(S_v)A2)/(348170636049013202315378688*(l  +  Z3A2/4  + 

Z3A4/64)A4)  +  ... 

(37823055319.*R.A52*SA2*Z3A50*(S_v)A2)/(29014219670751 100192948224*(1  +  Z3A2/4  + 

Z3A4/64)A4)  +  ... 

(3 1266829573.  *R.A54*SA2*Z3A52*(S_v)A2)/(309485009821 34506872478 1056*(1  +  Z3A2/4  + 

Z3A4/64)A4)  +  ... 

(305764487.*R.A56*SA2*Z3A54*(S_v)A2)/(43521329506126650289422336*(l  +  Z3A2/4  +  Z3A4/64)A4)  + 

( 155671 82 1505.*R.A58*SA2*Z3A56*(S_v)A2)/(35652673 13 14 1895 19 1709477765 12*(1  +  Z3A2/4  + 

Z3A4/64)A4)  +... 

(8605263625. *R.A60*SA2*Z3A58*(S_v)A2)/(356526731314189519170947776512*(l  +  Z3A2/4  + 

Z3A4/64)A4)  +  ... 

(44870 15 167.*R.A62*SA2*Z3A60*(S_v)A2)/(380295 1800684688204490 109616128*(1  +  Z3A2/4  + 

Z3A4/64)A4)  +  ... 

(64 197 1 3  l.*R.A64*SA2*Z3A62*(S_v)A2)/(  126765060022822940 1 4967032053  76*(1  +  Z3A2/4  + 

Z3A4/64)A4)  +  ... 

(7366421503. *R.A66*SA2*Z3A64*(S_v)A2)/(3894222643901120721397872246915072*(l  +  Z3A2/4  + 
Z3A4/64)A4)  +... 

(1 18374655. *R.A68*SA2*Z3A66*(S_v)A2)/(1947111321950560360698936123457536*(l  +  Z3A2/4  + 

Z3A4/64)A4)  +  ... 

( 1032 1 7975.  *R.  A70*SA2*Z3  A68*(S_v)A2 )/(623075623024 1793 1 54236595595064 1152*(1  +  Z3A2/4  + 
Z3A4/64)A4)  +  ... 

(1 169089.  *R.A72*SA2*Z3A70*(S_v)A2)/(3 1 153781 15 120896577 1 1 82977975320576*(1  +  Z3A2/4  + 

Z3A4/64)A4)  +  ... 

(1 64537 1 5.  *R.A74*SA2*Z3A72*(S_v)A2)/(23926 1 03924 1284857 12268527085046202368*(1  +  Z3A2/4  + 
Z3A4/64)A4)  +... 

(234365. *R.A76*SA2*Z3A74*(S_v)A2)/(23926103924128485712268527085046202368*(l  +  Z3A2/4  + 
Z3A4/64)A4)  +  ... 
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(77905.*R.A78*SA2*Z3A76*(S_v)A2)/(765635325572111542792592866721478475776*(l  +  Z3A2/4  + 
Z3A4/64)A4)  +  ... 

(175.*R.A80*SA2*Z3A78*(S_v)A2)/(25521 1775 190703  847597530955573  8261 58592*(  1  +  Z3A2/4  + 
Z3A4/64)A4)  +  ... 

(49.  *R.A82*SA2*Z3A80*(S_v)A2)/(2 177807 148294006 166 1 655974875633 1 65533 184*(1  +  Z3A2/4  + 

Z3A4/64)A4); 

Ns3=NG+Nc+Nr3; 

Phi3=Nf3./[Nc+Nr3]; 

Be3=l./[1+Phi3]; 

Gf3=NG./Ns3; 

Gr3=[Nr3]./Ns3; 

Nh3=Nc+Nr3; 


Z4=12.5; 

Nf4=Br*[(Z4A2).*exp(-2.*R.*Z4)+(Z4A2)*exp(-2*Z4)-2*Z4A2.*exp(-Z4-R.*Z4)]; 

Nr4=(R.A2*SA2)/4  +  (25. *R  A2*SA2*(S_v))/(384*(l  +  Z4A2/4  +  Z4A4/64)A2)+ 

(R.A2.*R.*Z4A2*SA2*(S_v))/(4*(l  +  Z4A2/4  +  Z4A4/64)A2)  -... 

(43.*R.A4*SA2*Z4A2*(S_v))/(384*(l  +  Z4A2/4  +  Z4A4/64)A2).„ 

+  (5.*R.A5.*R.*Z4*SA2*Z4A3*(S_v))/(32*(l  +  Z4A2/4  +  Z4A4/64)A2)+ 

(407.*R.A6*SA2*Z4A4*(S_v))/(4096*(l  +  Z4A2/4  +  Z4A4/64)A2)  +  ... 

(7.*R  A7.*R.*Z4*SA2*Z4A5*(S_v))/(768*(l  +  Z4A2/4  +  Z4A4/64)A2)  + 

(539.*R.A8*SA2*Z4A6*(S_v))/(4096*(l  +  Z4A2/4  +  Z4A4/64)A2)  +  ... 

(85225.  *R.A10*SA2*Z4A8*(S_v))/(1572864*(l  +  Z4A2/4  +  Z4A4/64)A2)  + 

(6487.*R.A12*SA2*Z4A10*(S_v))/(393216*(l  +  Z4A2/4  +  Z4A4/64)A2)  +  ... 

(17773.*R.A14*SA2*Z4A12*(S_v))/(4194304*(l  +  Z4A2/4  +  Z4A4/64)A2)  + 

(201  l.*R.A16*SA2*Z4A14*(S_v))/(2097152*(l  +  Z4A2/4  +  Z4A4/64)A2)  +  ... 

(206775.  *R.A18*SA2*Z4A16*(S_v))/(  1073  74 1824*(1  +  Z4A2/4  +  Z4A4/64)A2)  + 

(108275. *R.A20*SA2*Z4A18*(S_v))/(3221225472*(l  +  Z4A2/4  +  Z4A4/64)A2)  +... 

(512435. *R.A22*SA2*Z4A20*(S_v))/(103079215104*(l  +  Z4A2/4  +  Z4A4/64)A2)  + 

(21031.*R.A24*SA2*Z4A22*(S_v))/(34359738368*(l  +  Z4A2/4  +  Z4A4/64)A2)  +... 

(272987. *R.A26*SA2*Z4A24*(S_v))/(439804651 1 104*(1  +  Z4A2/4  +  Z4A4/64)A2)  + 

(1 1305.*R.A28*SA2*Z4A26*(S_v))/(2199023255552*(l  +  Z4A2/4  +  Z4A4/64)A2)  +  ... 

(24225.  *R.A30*SA2*Z4A28*(S_v))/(70368744177664*(l  +  Z4A2/4  +  Z4A4/64)A2)  + 

(323.  *R.A32*SA2*Z4A30*(S_v))/(  175921 860444 16*(1  +  Z4A2/4  +  Z4A4/64)A2)  +  ... 

(27455.  *R.A34*SA2*Z4A32*(S_v))/(36028797018963968*(l  +  Z4A2/4  +  Z4A4/64)A2)  + 

(855.*R.A36*SA2*Z4A34*(S_v))/(36028797018963968*(l  +  Z4A2/4  +  Z4A4/64)A2)  +  ... 
(1805.*R.A38*SA2*Z4A36*(S_v))/(3458764513820540928*(l  +  Z4A2/4  +  Z4A4/64)A2)  + 

(25.*R.A40*SA2*Z4A38*(S_v))/(3458764513820540928*(l  +  Z4A2/4  +  Z4A4/64)A2)  +  ... 

(7.  *R.A42*SA2  *Z4A40*(S_v))/(l  475739525896764 12928*(1  +  Z4A2/4  +  Z4A4/64)A2)  + 

(625.*R.A2*SA2*(S_v)A2)/(147456*(l  +  Z4A2/4  +  Z4A4/64)A4)  +  ... 

(25.*R.A2.*R.*Z4A2*SA2*(S_v)A2)/(768*(l  +  Z4A2/4  +  Z4A4/64)A4)  + 

(R. A2. *R. *Z4A4*SA2*(S_v)A2)/(  1 6*(  1  +  Z4A2/4  +  Z4A4/64)A4)  - ... 

(1075.*R.A4*SA2*Z4A2*(S_v)A2)/(73728*(l  +  Z4A2/4  +  Z4A4/64)A4) 

(43.*R.A4.*R.*Z4A2*SA2*Z4A2*(S_v)A2)/(768*(l  +  Z4A2/4  +  Z4A4/64)A4)  +  ... 

(125.*R.A5.*R.*Z4*SA2*Z4A3*(S_v)A2)/(6144*(l  +  Z4A2/4  +  Z4A4/64)A4)  + 

(5.*R.A5.*R.*Z4A3*SA2*Z4A3*(S_v)A2)/(64*(l  +  Z4A2/4  +  Z4A4/64)A4)  +  ... 

(60109.*R.A6*SA2*Z4A4*(S_v)A2)/(2359296*(l  +  Z4A2/4  +  Z4A4/64)A4)  + 

(407.*R.A6.*R.*Z4A2*SA2*Z4A4*(S_v)A2)/(8192*(l  +  Z4A2/4  +  Z4A4/64)A4)  -  ... 

(4985.*R.A7.*R.*Z4*SA2*Z4A5*(S_v)A2)/(147456*(l  +  Z4A2/4  +  Z4A4/64)A4)  + 

(7.*R.A7.*R.*Z4A3*SA2*Z4A5*(S_v)A2)/(1536*(l  +  Z4A2/4  +  Z4A4/64)A4)  - ... 

(671.*R.A8*SA2*Z4A6*(S_v)A2)/(131072*(l  +  Z4A2/4  +  Z4A4/64)A4)  + 

(739.*R.A8.*R.*Z4A2*SA2*Z4A6*(S_v)A2)/(8192*(l  +  Z4A2/4  +  Z4A4/64)A4)  +  ... 
(17111.*R.A9.*R.*Z4*SA2*Z4A7*(S_v)A2)/(589824*(l  +  Z4A2/4  +  Z4A4/64)A4) 

(3787661. *R.A10*SA2*Z4A8*(S_v)A2)/(301989888*(l  +  Z4A2/4  +  Z4A4/64)A4)  +... 
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(31395.*R.A10.*R.*Z4A2*SA2*Z4A8*(S_v)A2)/(1048576*(l  +  Z4A2/4  +  Z4A4/64)A4)  + 

(67529.  *R.A  11.  *R.*Z4*SA2*Z4A9*(S_v)A2)/(1572864*(l  +  Z4A2/4  +  Z4A4/64)A4)  +... 
(1627151.*R.A12*SA2*Z4A10*(S_v)A2)/(100663296*(l  +  Z4A2/4  +  Z4A4/64)A4)  + 

(19657.*R.A12.*R.*Z4A2*SA2*Z4A10*(S_v)A2)/(2359296*(l  +  Z4A2/4  +  Z4A4/64)A4)  +  ... 

(486493.  *R.A1 3.  *R.  *Z4*SA2*Z4A1  l*(S_v)A2)/(25165824*(l  +  Z4A2/4  +  Z4A4/64)A4)  + 

(24 1 027273.  *R.A14*SA2*Z4A12*(S_v)A2)/(9663676416*(l  +  Z4A2/4  +  Z4A4/64)A4)  +  ... 
(17773.*R.A14.*R.*Z4A2*SA2*Z4A12*(S_v)A2)/(8388608*(l  +  Z4A2/4  +  Z4A4/64)A4)  + 

(3710335.*R  A15.*R.*Z4*SA2*Z4A13*(S_v)A2)/(603979776*(l  +  Z4A2/4  +  Z4A4/64)A4)  +  ... 

(53  842355.  *R.A16*SA2*Z4A14*(S_v)A2)/(3221225472*(l  +  Z4A2/4  +  Z4A4/64)A4)  + 

(201  l.*R.A16.*R.*Z4A2*SA2*Z4A14*(S_v)A2)/(4194304*(l  +  Z4A2/4  +  Z4A4/64)A4)  +  ... 
(981421.*R.A17.*R.*Z4*SA2*Z4A15*(S_v)A2)/(603979776*(l  +  Z4A2/4  +  Z4A4/64)A4)  + 

( 1961 8549477.  *R.A18*SA2*Z4A1 6*(S_v)A2)/(247390 1 162496*(1  +  Z4A2/4  +  Z4A4/64)A4)  +... 

(206775.  *R.A1 8.  *R.*Z4A2*SA2*Z4A16*(S_v)A2)/(2147483648*(l  +  Z4A2/4  +  Z4A4/64)A4)  + 

(607051. *R.A19.*R.*Z4*SA2*Z4A17*(S_v)A2)/(1610612736*(l  +  Z4A2/4  +  Z4A4/64)A4)  +  ... 

(94466866  l.*R.A20*SA2*Z4A18*(S_v)A2)/(309237645312*(l  +  Z4A2/4  +  Z4A4/64)A4)  + 

( 108275.  *R.A20.*R.*Z4A2*SA2*Z4A18*(S_v)A2)/(6442450944*(l  +  Z4A2/4  +  Z4A4/64)A4)  +  ... 

(4002553.  *R.A21.*R.*Z4*SA2*Z4A19*(S_v)A2)/(51539607552*(l  +  Z4A2/4  +  Z4A4/64)A4)  + 

(3348433219.*R  A22*SA2*Z4A20*(S_v)A2)/(3298534883328*(l  +  Z4A2/4  +  Z4A4/64)A4)  +  ... 
(512435.*R.A22.*R.*Z4A2*SA2*Z4A20*(S_v)A2)/(206158430208*(l  +  Z4A2/4  +  Z4A4/64)A4)  + 

(5778425.*R.A23.*R.*Z4*SA2*Z4A21*(S_v)A2)/(412316860416*(l  +  Z4A2/4  +  Z4A4/64)A4)  +  ... 
(14846261 11.  *R.A24*SA2*Z4A22*(S_v)A2)/(4947802324992*(l  +  Z4A2/4  +  Z4A4/64)A4)  + 

(21031.*R.A24.*R.*Z4A2*SA2*Z4A22*(S_v)A2)/(68719476736*(l  +  Z4A2/4  +  Z4A4/64)A4)  +  ... 

( 1071 8225.  *R.A25.*R.*Z4*SA2*Z4A23*(S_v)A2)/(4947802324992*(l  +  Z4A2/4  +  Z4A4/64)A4)  + 

(33848465467.*R.A26*SA2*Z4A24*(S_v)A2)/(422212465065984*(l  +  Z4A2/4  +  Z4A4/64)A4)  +  ... 
(272987.*R.A26.*R.*Z4A2*SA2*Z4A24*(S_v)A2)/(8796093022208*(l  +  Z4A2/4  +  Z4A4/64)A4)  + 

(1 1 158205. *R.A27.*R.*Z4*SA2*Z4A25*(S_v)A2)/(39582418599936*(l  +  Z4A2/4  +  Z4A4/64)A4)  +  ... 
(2475004596  l.*R.A28*SA2*Z4A26*(S_v)A2)/(1266637395197952*(l  +  Z4A2/4  +  Z4A4/64)A4)  + 

(1 1305.*R.A28.*R.*Z4A2*SA2*Z4A26*(S_v)A2)/(439804651 1 104*(1  +  Z4A2/4  +  Z4A4/64)A4)  +  ... 
(6450277. *R.A29.*R.*Z4*SA2*Z4A27*(S_v)A2)/(21 1 106232532992*(1  +  Z4A2/4  +  Z4A4/64)A4)  + 

(5906459401  l.*R.A30*SA2*Z4A28*(S_v)A2)/(  135 107988821 1 1488*(1  +  Z4A2/4  +  Z4A4/64)A4)  +  ... 
(24225.  *R.A30.*R.*Z4A2*SA2*Z4A28*(S_v)A2)/(140737488355328*(l  +  Z4A2/4  +  Z4A4/64)A4)  + 

(46241 09.  *R.A31.*R.*Z4*SA2*Z4A29*(S_v)A2)/(1688849860263936*(l  +  Z4A2/4  +  Z4A4/64)A4)  +  ... 
(36553306561. *R  A32*SA2*Z4A30*(S_v)A2)/(40532396646334464*(l  +  Z4A2/4  +  Z4A4/64)A4)  + 

(323.*R.A32.*R.*Z4A2*SA2*Z4A30*(S_v)A2)/(35184372088832*(l  +  Z4A2/4  +  Z4A4/64)A4)  +  ... 
(679915.*R.A33.*R.*Z4*SA2*Z4A31*(S_v)A2)/(3377699720527872*(l  +  Z4A2/4  +  Z4A4/64)A4)  + 

(1 1899472 1661  l.*R.A34*SA2*Z4A32*(S_v)A2)/(6917529027641081856*(l  +  Z4A2/4  +  Z4A4/64)A4)  +  ... 
(27455.  *R.A34.*R.*Z4A2*SA2*Z4A32*(S_v)A2)/(72057594037927936*(l  +  Z4A2/4  +  Z4A4/64)A4)  + 
( 108205.  *R.A35.*R.*Z4*SA2*Z4A33*(S_v)A2)/(9007199254740992*(l  +  Z4A2/4  +  Z4A4/64)A4)  +  ... 

( 10503079278  l.*R.A36*SA2*Z4A34*(S_v)A2)/(3458764513820540928*(l  +  Z4A2/4  +  Z4A4/64)A4)  + 
(855.*R  A36.*R.*Z4A2*SA2*Z4A34*(S_v)A2)/(72057594037927936*(l  +  Z4A2/4  +  Z4A4/64)A4)  +  ... 
(99064  l.*R.A3  7.  *R.*Z4*SA2*Z4A35*(S_v)A2)/(  17293  8225691 0270464*(1  +  Z4A2/4  +  Z4A4/64)A4)  + 
(548568674633. *R.A38*SA2*Z4A36*(S_v)A2)/... 

(1 10680464442257309696*(1  +  Z4A2/4  +  Z4A4/64)A4)  + 

(1 805.  *R.A3  8.  *R.*Z4A2*SA2*Z4A36*(S_v)A2)/(69 17529027641 08 1856*(1  +  Z4A2/4  +  Z4A4/64)A4)  +  ... 
(294785.  *R.A39.*R.*Z4*SA2*Z4A37*(S_v)A2)/(  1 3835058055282 163  7 12*(1  +  Z4A2/4  +  Z4A4/64)A4)  + 
(10322387501. *R.A40*SA2*Z4A38*(S_v)A2)/... 

( 1 3835058055282 163712*(1  +  Z4A2/4  +  Z4A4/64)A4)  + 

(25.  *R.A40.*R.*Z4A2*SA2*Z4A38*(S_v)A2)/(69 17529027641 08 1856*(1  +  Z4A2/4  +  Z4A4/64)A4)  +  ... 
(32965.  *R.A41.*R.*Z4*SA2*Z4A39*(S_v)A2)/(55340232221 128654848*(1  +  Z4A2/4  +  Z4A4/64)A4)  + 
( 146260 147 125  l.*R.A42*SA2*Z4A40*(S_v)A2)/... 

(141 6709944860893564 1088*(1  +  Z4A2/4  +  Z4A4/64)A4)  + 

(7.  *R.A42.*R.*Z4A2*SA2*Z4A40*(S_v)A2)/(295 147905 179352825856*(1  +  Z4A2/4  +  Z4A4/64)A4)  +  ... 

( 1 5635.  *R.A43.*R.*Z4*SA2*Z4A41*(S_v)A2)/(  1328 1 655733070877 16352*(1  +  Z4A2/4  +  Z4A4/64)A4)  + 
(185335180013. *R.A44*SA2*Z4A42*(S_v)A2)/„. 

(141 6709944860893564 1088*(1  +  Z4A2/4  +  Z4A4/64)A4)  + 

(31 15.  *R.A45.*R.  *Z4*SA2*Z4A43  *(S_v)A2)/(2 1250649 1729 1340346 1632*(1  +  Z4A2/4  +  Z4A4/64)A4)  +  ... 
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(2057042720599.  *R.A46*SA2*Z4A44*(S_v)A2)/(  1 36004 1 547066457821 544448*(1  +  Z4A2/4  + 

Z4A4/64)A4)  +  ... 

(49.*R.A47.*R.*Z4*SA2*Z4A45*(S_v)A2)/(56668397794435742564352*(l  +  Z4A2/4  +  Z4A4/64)A4)  + 
(24026340573. *R.A48*SA2*Z4A46*(S_v)A2)/... 

(1511 1572745 1828646838272*(1  +  Z4A2/4  +  Z4A4/64)A4)  + 

(5273670271697.*R.A50*SA2*Z4A48*(S_v)A2)/(348170636049013202315378688*(l  +  Z4A2/4  + 

Z4A4/64)A4)  +  ... 

(37823055319.*R.A52*SA2*Z4A50*(S_v)A2)/(29014219670751 100192948224*(1  +  Z4A2/4  + 

Z4A4/64)A4)  +  ... 

(3 1266829573.  *R.A54*SA2*Z4A52*(S_v)A2)/(309485009821 34506872478 1056*(1  +  Z4A2/4  + 

Z4A4/64)A4)  +  ... 

(305764487.*R.A56*SA2*Z4A54*(S_v)A2)/(43521329506126650289422336*(l  +  Z4A2/4  +  Z4A4/64)A4)  + 

( 155671 82 1505.*R.A58*SA2*Z4A56*(S_v)A2)/(35652673 13 14 1895 19 1709477765 12*(1  +  Z4A2/4  + 

Z4A4/64)A4)  +... 

(8605263625. *R.A60*SA2*Z4A58*(S_v)A2)/(356526731314189519170947776512*(l  +  Z4A2/4  + 

Z4A4/64)A4)  +  ... 

(44870 15 167.*R.A62*SA2*Z4A60*(S_v)A2 )/(380295 1800684688204490 109616 128*(1  +  Z4A2/4  + 

Z4A4/64)A4)  +  ... 

(64 197 1 3  l.*R.A64*SA2*Z4A62*(S_v)A2)/(  126765060022822940 1 4967032053  76*(1  +  Z4A2/4  + 

Z4A4/64)A4)  +  ... 

(7366421503. *R.A66*SA2*Z4A64*(S_v)A2)/(3894222643901120721397872246915072*(l  +  Z4A2/4  + 
Z4A4/64)A4)  +... 

(1 18374655. *R.A68*SA2*Z4A66*(S_v)A2)/(1947111321950560360698936123457536*(l  +  Z4A2/4  + 

Z4A4/64)A4)  +  ... 

( 1032 1 7975.  *R.  A70*SA2*Z4A68*(S_v)A2 )/(623075623024 1793 1 54236595595064 1152*(1  +  Z4A2/4  + 
Z4A4/64)A4)  +  ... 

(1 169089.  *R.A72*SA2*Z4A70*(S_v)A2)/(3 1 15378 1 151208965771 182977975320576*(1  +  Z4A2/4  + 

Z4A4/64)A4)  +  ... 

(1 64537 1 5.  *R.A74*SA2*Z4A72*(S_v)A2)/(23926 1 03924 1284857 12268527085046202368*(1  +  Z4A2/4  + 
Z4A4/64)A4)  +... 

(234365. *R.A76*SA2*Z4A74*(S_v)A2)/(23926103924128485712268527085046202368*(l  +  Z4A2/4  + 
Z4A4/64)A4)  +  ... 

(77905.*R.A78*SA2*Z4A76*(S_v)A2)/(7656353255721 1 154279259286672 1478475776*(1  +  Z4A2/4  + 
Z4A4/64)A4)  +  ... 

(175.*R.A80*SA2*Z4A78*(S_v)A2)/(25521 1775 190703  847597530955573826 158592*(  1  +  Z4A2/4  + 
Z4A4/64)A4)  +  ... 

(49.  *R.A82*SA2*Z4A80*(S_v)A2)/(2 177807 148294006 166 1 655974875633 165533 184*(1  +  Z4A2/4  + 

Z4A4/64)A4); 


N  s4=N  f4+N  c+Nr4 ; 

Phi4=Nf4./[Nc+Nr4]; 

Be4=l./[1+Phi4]; 

Gf4=Nf4./Ns4; 

Gr4=[Nr4]./Ns4; 

Nh4=Nc+Nr4; 


Z5=15; 

Nf5=Br*[(Z5A2).*exp(-2.*R.*Z5)+(Z5A2)*exp(-2*Z5)-2*Z5A2.*exp(-Z5-R.*Z5)]; 

Nr5=(R.A2*SA2)/4  +  (25.*R.A2*SA2*(S_v))/(384*(l  +  Z5A2/4  +  Z5A4/64)A2)+ 

(R.A2.*R.*Z5A2*SA2*(S_v))/(4*(l  +  Z5A2/4  +  Z5A4/64)A2)  -... 

(43.*R.A4*SA2*Z5A2*(S_v))/(384*(l  +  Z5A2/4  +  Z5A4/64)A2)„. 

+  (5.*R.A5.*R.*Z5*SA2*Z5A3*(S_v))/(32*(l  +  Z5A2/4  +  Z5A4/64)A2)+ 

(407.*R.A6*SA2*Z5A4*(S_v))/(4096*(l  +  Z5A2/4  +  Z5A4/64)A2)  +  ... 
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(7.*R.A7.*R.*Z5*SA2*Z5A5*(S_v))/(768*(l  +  Z5A2/4  +  Z5A4/64)A2)  + 

(539.*R.A8*SA2*Z5A6*(S_v))/(4096*(l  +  Z5A2/4  +  Z5A4/64)A2)  +  ... 

(85225.  *R.A10*SA2*Z5A8*(S_v))/(1572864*(l  +  Z5A2/4  +  Z5A4/64)A2)  + 

(6487.*R.A12*SA2*Z5A10*(S_v))/(393216*(l  +  Z5A2/4  +  Z5A4/64)A2)  +  ... 

(17773.*R.A14*SA2*Z5A12*(S_v))/(4194304*(l  +  Z5A2/4  +  Z5A4/64)A2)  + 

(201  l.*R.A16*SA2*Z5A14*(S_v))/(2097152*(l  +  Z5A2/4  +  Z5A4/64)A2)  +  ... 

(206775.  *R.A18*SA2*Z5A16*(S_v))/(  1073  74 1824*(1  +  Z5A2/4  +  Z5A4/64)A2)  + 

(108275. *R.A20*SA2*Z5A18*(S_v))/(3221225472*(l  +  Z5A2/4  +  Z5A4/64)A2)  +... 

(512435. *R.A22*SA2*Z5A20*(S_v))/(103079215104*(l  +  Z5A2/4  +  Z5A4/64)A2)  + 

(21031.*R.A24*SA2*Z5A22*(S_v))/(34359738368*(l  +  Z5A2/4  +  Z5A4/64)A2)  +... 

(272987.  *R.  A26*SA2*Z5A24*(S_v))/(439804651 1104*(1  +  Z5A2/4  +  Z5A4/64)A2)  + 

(1 1305.*R.A28*SA2*Z5A26*(S_v))/(2199023255552*(l  +  Z5A2/4  +  Z5A4/64)A2)  +  ... 

(24225.  *R.A30*SA2*Z5A28*(S_v))/(70368744177664*(l  +  Z5A2/4  +  Z5A4/64)A2)  + 

(323.  *R.A32*SA2*Z5A30*(S_v))/(  175921 860444 16*(1  +  Z5A2/4  +  Z5A4/64)A2)  +  ... 

(27455.  *R.A34*SA2*Z5A32*(S_v))/(36028797018963968*(l  +  Z5A2/4  +  Z5A4/64)A2)  + 

(855.*R.A36*SA2*Z5A34*(S_v))/(36028797018963968*(l  +  Z5A2/4  +  Z5A4/64)A2)  +  ... 
(1805.*R.A38*SA2*Z5A36*(S_v))/(3458764513820540928*(l  +  Z5A2/4  +  Z5A4/64)A2)  + 

(25.*R.A40*SA2*Z5A38*(S_v))/(3458764513820540928*(l  +  Z5A2/4  +  Z5A4/64)A2)  +  ... 

(7.  *R.A42*SA2*Z5A40*(S_v))/(  1 475739525896764 12928*(1  +  Z5A2/4  +  Z5A4/64)A2)  + 

(625.*R.A2*SA2*(S_v)A2)/(147456*(l  +  Z5A2/4  +  Z5A4/64)A4)  +  ... 

(25.*R.A2.*R.*Z5A2*SA2*(S_v)A2)/(768*(l  +  Z5A2/4  +  Z5A4/64)A4)  + 

(R.A2.*R.*Z5A4*SA2*(S_v)A2)/(16*(l  +  Z5A2/4  +  Z5A4/64)A4)  - ... 

(1075.*R.A4*SA2*Z5A2*(S_v)A2)/(73728*(l  +  Z5A2/4  +  Z5A4/64)A4) 

(43.*R.A4.*R.*Z5A2*SA2*Z5A2*(S_v)A2)/(768*(l  +  Z5A2/4  +  Z5A4/64)A4)  +  ... 

(125.*R.A5.*R.*Z5*SA2*Z5A3*(S_v)A2)/(6144*(l  +  Z5A2/4  +  Z5A4/64)A4)  + 

(5.*R.A5.*R.*Z5A3*SA2*Z5A3*(S_v)A2)/(64*(l  +  Z5A2/4  +  Z5A4/64)A4)  +  ... 

(60109.*R.A6*SA2*Z5A4*(S_v)A2)/(2359296*(l  +  Z5A2/4  +  Z5A4/64)A4)  + 

(407.*R.A6.*R.*Z5A2*SA2*Z5A4*(S_v)A2)/(8192*(l  +  Z5A2/4  +  Z5A4/64)A4)  -  ... 

(4985.*R.A7.*R.*Z5*SA2*Z5A5*(S_v)A2)/(147456*(l  +  Z5A2/4  +  Z5A4/64)A4)  + 

(7.*R.A7.*R.*Z5A3*SA2*Z5A5*(S_v)A2)/(1536*(l  +  Z5A2/4  +  Z5A4/64)A4)  - ... 

(671.*R.A8*SA2*Z5A6*(S_v)A2)/(131072*(l  +  Z5A2/4  +  Z5A4/64)A4)  + 

(739.*R.A8.*R.*Z5A2*SA2*Z5A6*(S_v)A2)/(8192*(l  +  Z5A2/4  +  Z5A4/64)A4)  +  ... 
(17111.*R.A9.*R.*Z5*SA2*Z5A7*(S_v)A2)/(589824*(l  +  Z5A2/4  +  Z5A4/64)A4) 

(3787661. *R.A10*SA2*Z5A8*(S_v)A2)/(301989888*(l  +  Z5A2/4  +  Z5A4/64)A4)  +... 
(31395.*R.A10.*R.*Z5A2*SA2*Z5A8*(S_v)A2)/(1048576*(l  +  Z5A2/4  +  Z5A4/64)A4)  + 

(67529.  *R.All.*R.*Z5*SA2*Z5A9*(S_v)A2)/(1572864*(l  +  Z5A2/4  +  Z5A4/64)A4)  +... 

(1627151. *R.A12*SA2*Z5A10*(S_v)A2)/(100663296*(l  +  Z5A2/4  +  Z5A4/64)A4)  + 

(19657.*R.A12.*R.*Z5A2*SA2*Z5A10*(S_v)A2)/(2359296*(l  +  Z5A2/4  +  Z5A4/64)A4)  +  ... 
(486493.*R.A13.*R.*Z5*SA2*Z5A1  l*(S_v)A2)/(25165824*(l  +  Z5A2/4  +  Z5A4/64)A4)  + 

(24 1 027273.  *R.A14*SA2*Z5A12*(S_v)A2)/(9663676416*(l  +  Z5A2/4  +  Z5A4/64)A4)  +  ... 
(17773.*R.A14.*R.*Z5A2*SA2*Z5A12*(S_v)A2)/(8388608*(l  +  Z5A2/4  +  Z5A4/64)A4)  + 

(3710335.*R  A15.*R.*Z5*SA2*Z5A13*(S_v)A2)/(603979776*(l  +  Z5A2/4  +  Z5A4/64)A4)  +  ... 

(53  842355.  *R.A16*SA2*Z5A14*(S_v)A2)/(3221225472*(l  +  Z5A2/4  +  Z5A4/64)A4)  + 

(201  l.*R.A16.*R.*Z5A2*SA2*Z5A14*(S_v)A2)/(4194304*(l  +  Z5A2/4  +  Z5A4/64)A4)  +  ... 
(981421.*R.A17.*R.*Z5*SA2*Z5A15*(S_v)A2)/(603979776*(l  +  Z5A2/4  +  Z5A4/64)A4)  + 

(19618549477.*R.A18*SA2*Z5A16*(S_v)A2)/(2473901 162496*(1  +  Z5A2/4  +  Z5A4/64)A4)  +... 

(206775.  *R.A1 8.  *R.*Z5A2*SA2*Z5A16*(S_v)A2)/(2147483648*(l  +  Z5A2/4  +  Z5A4/64)A4)  + 

(607051. *R.A19.*R.*Z5*SA2*Z5A17*(S_v)A2)/(1610612736*(l  +  Z5A2/4  +  Z5A4/64)A4)  +  ... 

(94466866  l.*R.A20*SA2*Z5A18*(S_v)A2)/(309237645312*(l  +  Z5A2/4  +  Z5A4/64)A4)  + 

( 108275.  *R.A20.*R.*Z5A2*SA2*Z5A18*(S_v)A2)/(6442450944*(l  +  Z5A2/4  +  Z5A4/64)A4)  +  ... 

(4002553.  *R.A21.*R.*Z5*SA2*Z5A19*(S_v)A2)/(51539607552*(l  +  Z5A2/4  +  Z5A4/64)A4)  + 

(3348433219.*R.A22*SA2*Z5A20*(S_v)A2)/(3298534883328*(l  +  Z5A2/4  +  Z5A4/64)A4)  +  ... 
(512435.*R.A22.*R.*Z5A2*SA2*Z5A20*(S_v)A2)/(206158430208*(l  +  Z5A2/4  +  Z5A4/64)A4)  + 

(5778425.*R.A23.*R.*Z5*SA2*Z5A21*(S_v)A2)/(412316860416*(l  +  Z5A2/4  +  Z5A4/64)A4)  +  ... 
(14846261 11.  *R.A24*SA2*Z5A22*(S_v)A2)/(4947802324992*(l  +  Z5A2/4  +  Z5A4/64)A4)  + 

(21031.*R.A24.*R.*Z5A2*SA2*Z5A22*(S_v)A2)/(68719476736*(l  +  Z5A2/4  +  Z5A4/64)A4)  +  ... 
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( 1071 8225.  *R.A25.*R.*Z5*SA2*Z5A23*(S_v)A2)/(4947802324992*(l  +  Z5A2/4  +  Z5A4/64)A4)  + 

(33848465467.*R.A26*SA2*Z5A24*(S_v)A2)/(422212465065984*(l  +  Z5A2/4  +  Z5A4/64)A4)  +  ... 

(272987.  *R.A26.*R.*Z5A2*SA2*Z5A24*(S_v)A2)/(8796093022208*(l  +  Z5A2/4  +  Z5A4/64)A4)  + 

(1 1 158205. *R.A27.*R.*Z5*SA2*Z5A25*(S_v)A2)/(39582418599936*(l  +  Z5A2/4  +  Z5A4/64)A4)  +  ... 
(2475004596  l.*R.A28*SA2*Z5A26*(S_v)A2)/(1266637395197952*(l  +  Z5A2/4  +  Z5A4/64)A4)  + 

(1 1305.*R.A28.*R.*Z5A2*SA2*Z5A26*(S_v)A2)/(439804651 1 104*(1  +  Z5A2/4  +  Z5A4/64)A4)  +  ... 
(6450277. *R.A29.*R.*Z5*SA2*Z5A27*(S_v)A2)/(21 1 106232532992*(1  +  Z5A2/4  +  Z5A4/64)A4)  + 

(5906459401  l.*R.A30*SA2*Z5A28*(S_v)A2)/(135107988821 1 1488*(1  +  Z5A2/4  +  Z5A4/64)A4)  +  ... 
(24225.  *R.A30.*R.*Z5A2*SA2*Z5A28*(S_v)A2)/(140737488355328*(l  +  Z5A2/4  +  Z5A4/64)A4)  + 

(4624109.*R.A31.*R.*Z5*SA2*Z5A29*(S_v)A2)/(1688849860263936*(l  +  Z5A2/4  +  Z5A4/64)A4)  +  ... 
(36553306561. *R.A32*SA2*Z5A30*(S_v)A2)/(40532396646334464*(l  +  Z5A2/4  +  Z5A4/64)A4)  + 

(323.*R.A32.*R.*Z5A2*SA2*Z5A30*(S_v)A2)/(35184372088832*(l  +  Z5A2/4  +  Z5A4/64)A4)  +  ... 
(679915.*R.A33.*R.*Z5*SA2*Z5A31*(S_v)A2)/(3377699720527872*(l  +  Z5A2/4  +  Z5A4/64)A4)  + 

(1 18994721661 1.: *R  A34*SA2*Z5A32*(S_v)A2)/(6917529027641081856*(l  +  Z5A2/4  +  Z5A4/64)A4)  +  ... 
(27455.  *R.A34.*R.*Z5A2*SA2*Z5A32*(S_v)A2)/(72057594037927936*(l  +  Z5A2/4  +  Z5A4/64)A4)  + 
(1 08205.  *R.A35.*R.*Z5*SA2*Z5A33*(S_v)A2)/(9007199254740992*(l  +  Z5A2/4  +  Z5A4/64)A4)  +  ... 

(1 0503079278  l.*R.A36*SA2*Z5A34*(S_v)A2)/(3458764513820540928*(l  +  Z5A2/4  +  Z5A4/64)A4)  + 
(855.*R.A36.*R.*Z5A2*SA2*Z5A34*(S_v)A2)/(72057594037927936*(l  +  Z5A2/4  +  Z5A4/64)A4)  +  ... 
(99064  l.*R.A3  7.  *R.*Z5*SA2*Z5A35*(S_v)A2)/(  17293  8225691 0270464*(1  +  Z5A2/4  +  Z5A4/64)A4)  + 
(548568674633. *R.A38*SA2*Z5A36*(S_v)A2)/... 

(1 10680464442257309696*(1  +  Z5A2/4  +  Z5A4/64)A4)  + 

(1 805.  *R.A3  8.  *R.*Z5A2*SA2*Z5A36*(S_v)A2)/(69 17529027641 08 1856*(1  +  Z5A2/4  +  Z5A4/64)A4)  +  ... 
(294785.  *R.  A39.*R.*Z5*SA2*Z5A37*(S_v)A2)/(  1 3835058055282 163  7 12*(1  +  Z5A2/4  +  Z5A4/64)A4)  + 
(10322387501. *R.A40*SA2*Z5A38*(S_v)A2)/... 

(13  835058055282 163  7 12*(1  +  Z5A2/4  +  Z5A4/64)A4)  + 

(25.  *R.A40.*R.*Z5A2*SA2*Z5A38*(S_v)A2)/(69 17529027641 08 1856*(1  +  Z5A2/4  +  Z5A4/64)A4)  +  ... 
(32965.  *R.A41.*R.*Z5*SA2*Z5A39*(S_v)A2)/(55340232221128654848*(l  +  Z5A2/4  +  Z5A4/64)A4)  + 
(1462601471251. *R.A42*SA2*Z5A40*(S_v)A2)/.„ 

(141 6709944860893564 1088*(1  +  Z5A2/4  +  Z5A4/64)A4)  + 

(7.  *R.A42.*R.*Z5A2*SA2*Z5A40*(S_v)A2)/(295 147905 179352825856*(1  +  Z5A2/4  +  Z5A4/64)A4)  +  ... 

( 1 5635.  *R.  A43.  *R.  *Z5*SA2*Z5A4  l*(S_v)A2)/(  1328 1 655733070877 16352*(1  +  Z5A2/4  +  Z5A4/64)A4)  + 
(185335180013. *R.A44*SA2*Z5A42*(S_v)A2)/... 

(141 6709944860893564 1 088*(1  +  Z5A2/4  +  Z5A4/64)A4)  + 

(31 15.  *R.A45.*R.  *Z5*SA2*Z5A43  *(S_v)A2)/(2 1250649 1729 1340346 1632*(1  +  Z5A2/4  +  Z5A4/64)A4)  +  ... 
(2057042720599.  *R.A46*SA2*Z5A44*(S_v)A2)/(l  36004 1 547066457821 544448*(1  +  Z5A2/4  + 
Z5A4/64)A4)  +  ... 

(49.*R.A47.*R.*Z5*SA2*Z5A45*(S_v)A2)/(56668397794435742564352*(l  +  Z5A2/4  +  Z5A4/64)A4)  + 
(24026340573. *R.A48*SA2*Z5A46*(S_v)A2)/... 

(1511 1572745 1828646838272*(1  +  Z5A2/4  +  Z5A4/64)A4)  + 

(5273670271697.*R.A50*SA2*Z5A48*(S_v)A2)/(348170636049013202315378688*(l  +  Z5A2/4  + 

Z5A4/64)A4)  +  ... 

(3  78230553 1 9.  *R.A52*SA2*Z5A50*(S_v)A2)/(290 142 1967075 1 1001 92948224*(1  +  Z5A2/4  + 

Z5A4/64)A4)  +  ... 

(3 1266829573.  *R.A54*SA2*Z5A52*(S_v)A2)/(309485009821 34506872478 1056*(1  +  Z5A2/4  + 

Z5A4/64)A4)  +  ... 

(305764487.*R.A56*SA2*Z5A54*(S_v)A2)/(43521329506126650289422336*(l  +  Z5A2/4  +  Z5A4/64)A4)  + 

( 155671 82 1505.*R.A58*SA2*Z5A56*(S_v)A2)/(35652673 13 14 1895 19 1709477765 12*(1  +  Z5A2/4  + 

Z5A4/64)A4)  +... 

(8605263625. *R.A60*SA2*Z5A58*(S_v)A2)/(356526731314189519170947776512*(l  +  Z5A2/4  + 

Z5A4/64)A4)  +  ... 

(44870 15 167.*R.A62*SA2*Z5A60*(S_v)A2)/(3802951800684688204490109616128*(l  +  Z5A2/4  + 

Z5A4/64)A4)  +  ... 

(64 197 1 3  l.*R.A64*SA2*Z5A62*(S_v)A2)/(  126765060022822940 14967032053  76*(1  +  Z5A2/4  + 

Z5A4/64)A4)  +  ... 
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(7366421503. *R.A66*SA2*Z5A64*(S_v)A2)/(3894222643901120721397872246915072*(l  +  Z5A2/4  + 
Z5A4/64)A4)  +... 

(1 18374655. *R.A68*SA2*Z5A66*(S_v)A2)/(1947111321950560360698936123457536*(l  +  Z5A2/4  + 

Z5A4/64)A4)  +  ... 

( 10321 7975.  *R.  A70*SA2*Z5A68*(S_v)A2 )/(623075623024 1793 1 54236595595064 11 52*(1  +  Z5A2/4  + 
Z5A4/64)A4)  +  ... 

(1 169089.  *R.A72*SA2*Z5A70*(S_v)A2)/(3 1 153781 15 120896577 1 1 82977975320576*(1  +  Z5A2/4  + 

Z5A4/64)A4)  +  ... 

(1 64537 1 5.  *R.A74*SA2*Z5A72*(S_v)A2)/(23926 1 03924 1284857 12268527085046202368*(1  +  Z5A2/4  + 
Z5A4/64)A4)  +... 

(234365. *R.A76*SA2*Z5A74*(S_v)A2)/(23926103924128485712268527085046202368*(l  +  Z5A2/4  + 
Z5A4/64)A4)  +  ... 

(77905.*R.A78*SA2*Z5A76*(S_v)A2)/(7656353255721 1 154279259286672 1478475776*(1  +  Z5A2/4  + 
Z5A4/64)A4)  +  ... 

(175.*R.A80*SA2*Z5A78*(S_v)A2)/(25521 1775 190703  847597530955573826 158592*(  1  +  Z5A2/4  + 
Z5A4/64)A4)  +  ... 

(49.  *R.A82*SA2*Z5A80*(S_v)A2)/(2 177807 148294006 166 1 655974875633 1 65533 184*(1  +  Z5A2/4  + 

Z5A4/64)A4); 


Ns5=Nf5+Nc+Nr5; 

Phi5=Nf5  ,/(Nc+Nr5] ; 

Be5=l./[1+Phi5]; 

Gf5=Nf5./Ns5; 

Gr5=[Nr5]./Ns5; 

Nh5=Nc+Nr5; 


plot(R,Nsl,'b',R,Ns2,'g',R,Ns3,'r',R,Ns4,'k',R,Ns5,'m') 

%  plot(R,Bel,'b',R,Be2,'g',R,Be3,'r',R,Be4,'k',R,Be5,'m') 

%  plot(R,Phil,'b',R,Phi2,'g',R,Phi3,'r',R,Phi4,'k',R,Phi5,'m') 

%  plot(R,Gfl,'b',R,Gf2,'g',R,Gf3,'r',R,Gf4,'k',R,Gf5,'m') 

%  plot(R,Grl,'b',R,Gr2,'g',R,Gr3,'r',R,Gr4,'k',R,Gr5,'m') 

%  plot(R,Nfl,'b',R,Nf2,'g',R,Nf3,'r',R,Nf4,'k',R,Nf5,'m') 

%  plot(R,Nhl,'b',R,Nh2,'g',R,Nh3,'r',R,Nh4,'k',R,Nh5,'m') 

%  %  %  %  %  plot(Nhl,Nfl,'b',Nh2,Nf2,'g',Nh3,NG,'r',Nh4,Nf4,'k',Nh5,Nf5,'m') 


PLOTTOOLS  ON 
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2.3.  Distribution  of  Ns,Be,  ®,  GF,  GR,  Nc  and  N  H  versus  Y  for  a  range  of  Pe 


and  set  of  S ,  Sv ,  Z  &  Br 


S=l;  S_v=l;  Z=l;  Br=l; 

%  S=5;  S_v=0.75;  Z=7.5;  Br=0.4; 

%  %  %  %  %  S=2;  S_v=l;  Z=5;  Br=0.2; 

%  %  %  %  %  S=25;  S_v=15;  Z=10;  Br=0.4; 
%  %  %  %  %  S=20;  S_v=2;  Z=2.5;  Br=0.6; 
%  %  %  %  %  S=10;  S_v=25;  Z=20;  Br=0.5; 

q=1.86; 

s=l; 

Dh=250*10A-6; 

R=0:0.005 : 1 ; 


Nf=Br*[(1024.*R.A2.*ZA4  +  256.*R.A4.*ZA6  +  16.*R  A6.*ZA8)./(4096  +  2048*ZA2  +  384*ZA4  +  32*ZA6 
+  ZA8)]; 


Nr=(R.A2* S A2)/4  +  (25. *R  A2*SA2*(S_v))/(384*(l  +  ZA2/4  +  ZA4/64)A2)+ 

(R  A2.*R.*ZA2*SA2*(S_v))/(4*(l  +  ZA2/4  +  ZA4/64)A2) 

(43.*R.A4*SA2*ZA2*(S_v))/(384*(l  +  ZA2/4  +  ZA4/64)A2)„. 

+  (5.*R.A5.*R.*Z*SA2*ZA3*(S_v))/(32*(l  +  ZA2/4  +  ZA4/64)A2)+  (407.*R  A6*SA2*ZA4*(S_v))/(4096*(l 
+  ZA2/4  +  ZA4/64)A2)  +  ... 

(7.*R  A7.*R.*Z*SA2*ZA5*(S_v))/(768*(l  +  ZA2/4  +  ZA4/64)A2)  +  (539.*R  A8*SA2*ZA6*(S_v))/(4096*(l 
+  ZA2/4  +  ZA4/64)A2)  +  ... 

(85225.  *R.A10*SA2*ZA8*(S_v))/(1572864*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(6487.*R.A12*SA2*ZA10*(S_v))/(393216*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(17773.*R.A14*SA2*ZA12*(S_v))/(4194304*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(201  l.*R.A16*SA2*ZA14*(S_v))/(2097152*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(206775.  *R.A18*SA2*ZA16*(S_v))/(  1 07374 1824*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(108275. *R.A20*SA2*ZA18*(S_v))/(3221225472*(l  +  ZA2/4  +  ZA4/64)A2)  +... 

(512435. *R.A22*SA2*ZA20*(S_v))/(103079215104*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(21031.*R.A24*SA2*ZA22*(S_v))/(34359738368*(l  +  ZA2/4  +  ZA4/64)A2)  +... 

(272987. *R.A26*SA2*ZA24*(S_v))/(439804651 1 104*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(1 1305.*R.A28*SA2*ZA26*(S_v))/(2199023255552*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(24225.  *R.A30*SA2*ZA28*(S_v))/(70368744177664*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(323.  *R.A32*SA2*ZA30*(S_v))/(l  75921 860444 16*(1  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(27455.  *R.A34*SA2*ZA32*(S_v))/(36028797018963968*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(855.*R  A36*SA2*ZA34*(S_v))/(36028797018963968*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 
(1805.*R.A38*SA2*ZA36*(S_v))/(3458764513820540928*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(25.*R.A40*SA2*ZA38*(S_v))/(3458764513820540928*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 
(7.*R.A42*SA2*ZA40*(S_v))/(147573952589676412928*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(625.*R.A2*SA2*(S_v)A2)/(147456*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(25.*R  A2.*R.*ZA2*SA2*(S_v)A2)/(768*(l  +  ZA2/4  +  ZA4/64)A4)  +  (R  A2.*R.*ZA4*SA2*(S_v)A2)/(16*(l 
+  ZA2/4  +  ZA4/64)A4)  - ... 

(1075.*R.A4*SA2*ZA2*(S_v)A2)/(73728*(l  +  ZA2/4  +  ZA4/64)A4) 

(43.*R.A4.*R.*ZA2*SA2*ZA2*(S_v)A2)/(768*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(125.*R.A5.*R.*Z*SA2*ZA3*(S_v)A2)/(6144*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(5.*R.A5.*R.*ZA3*SA2*ZA3*(S_v)A2)/(64*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
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(60109.*R.A6*SA2*ZA4*(S_v)A2)/(2359296*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(407.*R  A6.*R.*ZA2*SA2*ZA4*(S_v)A2)/(8192*(l  +  ZA2/4  +  ZA4/64)A4)  - ... 

(4985.*R.A7.*R.*Z*SA2*ZA5*(S_v)A2)/(147456*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(7.*R.A7.*R.*ZA3*SA2*ZA5*(S_v)A2)/(1536*(l  +  ZA2/4  +  ZA4/64)A4)  -  ... 

(671.*R.A8*SA2*ZA6*(S_v)A2)/(131072*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(739.*R  A8.*R.*ZA2*SA2*ZA6*(S_v)A2)/(8192*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(17111.*R.A9.*R.*Z*SA2*ZA7*(S_v)A2)/(589824*(l  +  ZA2/4  +  ZA4/64)A4) 

(3787661. *R.A10*SA2*ZA8*(S_v)A2)/(301989888*(l  +  ZA2/4  +  ZA4/64)A4)  +... 

(31395.*R  A10.*R.*ZA2*SA2*ZA8*(S_v)A2)/(1048576*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(67529.  *R.All.*R.*Z*SA2*ZA9*(S_v)A2)/(1572864*(l  +  ZA2/4  +  ZA4/64)A4)  +... 

(1627151.*R.A12*SA2*ZA10*(S_v)A2)/(100663296*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(19657.*R.A12.*R.*ZA2*SA2*ZA10*(S_v)A2)/(2359296*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(486493.  *R.A1 3.  *R.  *Z*SA2*ZA1  l*(S_v)A2)/(25165824*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(241 027273.  *R.A14*SA2*ZA12*(S_v)A2)/(9663676416*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(17773.*R  A14.*R.*ZA2*SA2*ZA12*(S_v)A2)/(8388608*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(3710335.*R.A15.*R.*Z*SA2*ZA13*(S_v)A2)/(603979776*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(53  842355.  *R.A16*SA2*ZA14*(S_v)A2)/(3221225472*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(201  l.*R.A16.*R.*ZA2*SA2*ZA14*(S_v)A2)/(4194304*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(981421.*R.A17.*R.*Z*SA2*ZA15*(S_v)A2)/(603979776*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(19618549477.*R.A18*SA2*ZA16*(S_v)A2)/(2473901 162496*(1  +  ZA2/4  +  ZA4/64)A4)  +... 

(206775.  *R.A1 8.  *R.*ZA2*SA2*ZA16*(S_v)A2)/(2147483648*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(60705  l.*R.A19.*R.*Z*SA2*ZA17*(S_v)A2)/(1610612736*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(94466866  l.*R.A20*SA2*ZA18*(S_v)A2)/(30923  76453 12*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(108275.*R.A20.*R.*ZA2*SA2*ZA18*(S_v)A2)/(6442450944*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(4002553.  *R.A21.*R.*Z*SA2*ZA19*(S_v)A2)/(51539607552*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(3348433219.*R.A22*SA2*ZA20*(S_v)A2)/(3298534883328*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(512435.*R.A22.*R.*ZA2*SA2*ZA20*(S_v)A2)/(206158430208*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(5778425.*R.A23.*R.*Z*SA2*ZA21*(S_v)A2)/(412316860416*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(14846261 11.  *R.A24*SA2*ZA22*(S_v)A2)/(4947802324992*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(21031.*R.A24.*R.*ZA2*SA2*ZA22*(S_v)A2)/(68719476736*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

( 1071 8225.  *R.A25.*R.*Z*SA2*ZA23*(S_v)A2)/(4947802324992*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(33848465467.*R.A26*SA2*ZA24*(S_v)A2)/(422212465065984*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(272987.  *R.A26.*R.*ZA2*SA2*ZA24*(S_v)A2)/(8796093022208*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(1 1 158205. *R.  A27.*R.*Z*SA2*ZA25*(S_v)A2)/(3958241 8599936*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(2475004596  l.*R.A28*SA2*ZA26*(S_v)A2)/(  1266637395 197952*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(1 1305. *R  A28.*R.*ZA2*SA2*ZA26*(S_v)A2)/(439804651 1 104*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(6450277. *R.A29.*R.*Z*SA2*ZA27*(S_v)A2)/(21 1 106232532992*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(5906459401  l.*R.A30*SA2*ZA28*(S_v)A2)/(  135 10798882 11 1488*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(24225.  *R.A30.*R.*ZA2*SA2*ZA28*(S_v)A2)/(  14073  7488355328*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(4624109.*R.A31.*R.*Z*SA2*ZA29*(S_v)A2)/(1688849860263936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(36553306561.*R.A32*SA2*ZA30*(S_v)A2)/(40532396646334464*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(323.*R.A32.*R.*ZA2*SA2*ZA30*(S_v)A2)/(35184372088832*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(679915.*R.A33.*R.*Z*SA2*ZA31*(S_v)A2)/(3377699720527872*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(1 1899472 166 1  l.*R  A34*SA2*ZA32*(S_v)A2)/(691 752902764 108 1856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(27455.  *R.A34.*R.*ZA2*SA2*ZA32*(S_v)A2)/(72057594037927936*(l  +  ZA2/4  +  ZA4/64)A4)  + 

( 108205.  *R.A35.*R.*Z*SA2*ZA33*(S_v)A2)/(9007199254740992*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

( 10503079278  l.*R.A36*SA2*ZA34*(S_v)A2)/(345  87645 13  820540928*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(855.*R.A36.*R.*ZA2*SA2*ZA34*(S_v)A2)/(72057594037927936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(99064 1.  *R.  A37.  *R.*Z*SA2*ZA35*(S_v)A2)/(  17293  822569 10270464*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(548568674633. *R.A38*SA2*ZA36*(S_v)A2)/... 

(1 10680464442257309696*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(1 805.  *R.A38.*R.*ZA2*SA2*ZA36*(S_v)A2)/(691 752902764 108 1856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(294785.  *R.A39.*R.*Z*SA2*ZA37*(S_v)A2)/(  1 3835058055282 163  712*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(10322387501. *R.A40*SA2*ZA38*(S_v)A2)/... 

(13  835058055282 163712*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(25.  *R.A40.*R.*ZA2*SA2*ZA38*(S_v)A2)/(69 1752902764 1 081 856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 
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(32965.  *R.A41.*R.*Z*SA2*ZA39*(S_v)A2)/(55340232221 128654848*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(1462601471251. *R.A42*SA2*ZA40*(S_v)A2)/„. 

(141 6709944860893564 1088*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(7.*R.A42.*R.*ZA2*SA2*ZA40*(S_v)A2)/(295 147905 179352825856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

( 1 5635.  *R.A43.*R.*Z*SA2*ZA41*(S_v)A2)/(l  3281 6557330708771 6352*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(185335180013. *R.A44*SA2*ZA42*(S_v)A2)/... 

(14 16709944860893564 1088*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(31 15.  *R.A45.*R.  *Z*SA2*ZA43*(S_v)A2)/(2 1250649 1 7291 340346 1632*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(2057042720599.  *R.A46*SA2*ZA44*(S_v)A2)/(l  36004 1 54706645782 1544448*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(49.*R.A47.*R.*Z*SA2*ZA45*(S_v)A2)/(56668397794435742564352*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(24026340573. *R.A48*SA2*ZA46*(S_v)A2)/... 

(151 1 1572745 1828646838272*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(5273670271697.*R.A50*SA2*ZA48*(S_v)A2)/(348170636049013202315378688*(l  +  ZA2/4  +  ZA4/64)A4) 
+  ... 

(3  78230553 1 9.  *R.A52*SA2*ZA50*(S_v)A2)/(290 142 1967075 1 1001 92948224*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(3 1266829573.  *R.A54*SA2*ZA52*(S_v)A2)/(309485009821 34506872478 1056*(1  +  ZA2/4  +  ZA4/64)A4)  + 


(305764487.*R.A56*SA2*ZA54*(S_v)A2)/(43521329506126650289422336*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

( 155671 82 1505.*R.A58*SA2*ZA56*(S_v)A2)/(35652673 13 14 1895 191 709477765 12*(1  +  ZA2/4  + 

ZA4/64)A4)  +... 

(8605263625. *R.A60*SA2*ZA58*(S_v)A2)/(356526731314189519170947776512*(l  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(44870 15 167.*R.A62*SA2*ZA60*(S_v)A2)/(380295 1800684688204490 109616128*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(64 197 1 3  l.*R.A64*SA2*ZA62*(S_v)A2)/(  126765060022822940 1496703205376*(1  +  ZA2/4  +  ZA4/64)A4) 


(7366421503.*R.A66*SA2*ZA64*(S_v)A2)/(3894222643901 12072 13978722469 15072*(1  +  ZA2/4  + 

ZA4/64)A4)  +... 

(1 18374655. *R.A68*SA2*ZA66*(S_v)A2)/(1947111321950560360698936123457536*(l  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

( 1032 1 7975.  *R.  A70*SA2*ZA68*(S_v)A2)/(623075623024 1793 1 54236595595064 1 152*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(1 169089.  *R.A72*SA2*ZA70*(S_v)A2)/(3 1 153781 151208965771 182977975320576*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

( 1 64537 1 5.  *R.A74*SA2*ZA72*(S_v)A2)/(23926 1 03924 1 284857 12268527085046202368*(1  +  ZA2/4  + 
ZA4/64)A4)  +... 

(234365. *R.A76*SA2*ZA74*(S_v)A2)/(23926103924128485712268527085046202368*(l  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(77905.*R.A78*SA2*ZA76*(S_v)A2)/(76563532557211 154279259286672 1478475776*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(175.*R.A80*SA2*ZA78*(S_v)A2)/(25521 1775 1 90703847597530955573  8261 58592*(  1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(49.  *R.A82*SA2*ZA80*(S_v)A2)/(2 177807 148294006 166 1 655974875633 1 65533 184*(1  +  ZA2/4  + 

ZA4/64)A4); 


Pel=2; 

Ncl=[l./PelA2]*[16*qA2+sA2*DhA2+8*q*s*Dh]; 

Nsl=Nf+Ncl+Nr; 

Phi  1  =N: f./[Nc  1 +N  r] ; 

Be  1=1  ./[1+Phil]; 

Gfl=Nf./Nsl; 

Grl=[Nr]./Nsl; 

Nhl=Ncl+Nr; 
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Pe2=4; 

Nc2=[l./Pe2A2]*[16*qA2+sA2*DhA2+8*q*s*Dh]; 

Ns2=Nf+Nc2+Nr; 

Phi2=Nf./[Nc2+Nr]; 

Be2=l./[1+Phi2]; 

Gf2=Nf./Ns2; 

Gr2=[Nr|./Ns2; 

Nh2=Nc2+Nr; 


Pe3=6; 

Nc3=[l./Pe3A2]*[16*qA2+sA2*DhA2+8*q*s*Dh]; 
Ns3  =N  f+N  c3  +N  r; 

Phi3=Nf./[Nc3+Nr] ; 

Be3=l./[1+Phi3]; 

Gf3=Nf./Ns3; 

Gr3=[Nr]./Ns3; 

Nh3=Nc3+Nr; 


Pe4=8; 

Nc4=[l./Pe4A2]*[16*qA2+sA2*DhA2+8*q*s*Dh]; 
N  s4=N  f+N  c4+N  r; 

Phi4=Nf./[Nc4+Nr]; 

Be4=l./[1+Phi4]; 

Gf4=Nf./Ns4; 

Gr4=[Nr]./Ns4; 

Nh4=Nc4+Nr; 


Pe5=10; 

Nc5=[l./Pe5A2]*[16*qA2+sA2*DhA2+8*q*s*Dh]; 

Ns5=Nf+Nc5+Nr; 

Phi5=Nf./[Nc5+Nr] ; 

Be5=l./[1+Phi5]; 

Gf5=Nf./Ns5; 

Gr5=[Nr]./Ns5; 

Nh5=Nc5+Nr; 


plot(R,Nsl,'b',R,Ns2,'g',R,Ns3,'r',R,Ns4,'k',R,Ns5,'m') 

%  plot(R,Bel,'b',R,Be2,'g',R,Be3,'r',R,Be4,'k',R,Be5,'m') 

%  plot(R,Phil,'b',R,Phi2,'g',R,Phi3,'r',R,Phi4,'k',R,Phi5,'m') 
%  plot(R,Gfl  ,'b',R,Gf2,'g',R,Gf3,'r',R,Gf4,'k',R,Gf5,'m') 

%  plot(R,Grl,'b',R,Gr2,'g',R,Gr3,'r',R,Gr4,'k',R,Gr5,'m') 

%  plot(R,Ncl,'b',R,Nc2,'g',R,Nc3,'r',R,Nc4,'k',R,Nc5,'m') 

%  plot(R,Nhl,'b',R,Nh2,'g',R,Nh3,'r',R,Nh4,'k',R,Nh5,'m') 

PLOTTOOLS  ON 
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2.4.  Distribution  of  Ns,Be,  O ,  GF,  GR,  NF  and  N H  versus  Y  for  a  range  of  S 


and  set  of  Sv,  Z ,  Br  &  Pe 


S_v=l;  Z=l;  Br=l;  Pe=10; 

%  S_v=2.5;  Z=2;  Br0.5;  Pe=5; 

%  %  %  %  %  Z=4;  S_v=10;  Br=0.6;  Pe=8; 

%  %  %  %  %  Z=5;  S_v=0.75;  Br=0.2;  Pe=2; 
%  %  %  %  %  Z=10;  S_v=5;  Br=l;  Pe=7.5; 

%  %  %  %  %  Z=20;  S_v=15;  Br=0.9;  Pe=10; 


q=1.86; 

s=l; 

Dh=250*10A-6; 
R=0:0.005 : 1 ; 


Nc=[l/PeA2]*[16*qA2+sA2*DhA2+8*q*s*Dh]; 


ui  x , 

Nfl=Br*[(ZA2).*exp(-2.*R.*Z)+(ZA2)*exp(-2*Z)-2*ZA2.*exp(-Z-R.*Z)]; 

Nrl=(R.A2*SlA2)/4  +  (25. *R  A2*SlA2*(S_v))/(384*(l  +  ZA2/4  +  ZA4/64)A2)+ 

(R.A2.*R.*ZA2*SlA2*(S_v))/(4*(l  +  ZA2/4  +  ZA4/64)A2) 

(43.*R.A4*SlA2*ZA2*(S_v))/(384*(l  +  ZA2/4  +  ZA4/64)A2)... 

+  (5.*R  A5.*R.*Z*SlA2*ZA3*(S_v))/(32*(l  +  ZA2/4  +  ZA4/64)A2)+ 

(407.*R  A6*SlA2*ZA4*(S_v))/(4096*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(7.*R.A7.*R.*Z*SlA2*ZA5*(S_v))/(768*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(539.*R.A8*SlA2*ZA6*(S_v))/(4096*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(85225.  *R.A10*SlA2*ZA8*(S_v))/(1572864*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(6487.*R.A12*SlA2*ZA10*(S_v))/(393216*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(17773.*R.A14*SlA2*ZA12*(S_v))/(4194304*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(201  l.*R.A16*SlA2*ZA14*(S_v))/(2097152*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(206775.  *R.  A1 8*SlA2*ZA16*(S_v))/(  1073  74 1824*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(108275.*R.A20*SlA2*ZA18*(S_v))/(3221225472*(l  +  ZA2/4  +  ZA4/64)A2)  +... 

(512435.*R.A22*SlA2*ZA20*(S_v))/(103079215104*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(21031.*R.A24*SlA2*ZA22*(S_v))/(34359738368*(l  +  ZA2/4  +  ZA4/64)A2)  +... 

(272987. *R.A26*SlA2*ZA24*(S_v))/(439804651 1 104*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(1 1305. *R  A28*SlA2*ZA26*(S_v))/(2199023255552*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(24225.  *R.A30*SlA2*ZA28*(S_v))/(70368744177664*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(323.  *R.A32*SlA2*ZA30*(S_v))/(  175921 860444 16*(1  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(27455.  *R.A34*SlA2*ZA32*(S_v))/(36028797018963968*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(855.*R.A36*SlA2*ZA34*(S_v))/(36028797018963968*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(1 805.  *R.A38*SlA2*ZA36*(S_v))/(345  87645 13820540928*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(25.*R.A40*SlA2*ZA38*(S_v))/(3458764513820540928*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 
(7.*R.A42*SlA2*ZA40*(S_v))/(  1475739525896764 12928*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(625.*R.A2*SlA2*(S_v)A2)/(147456*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(25.*R.A2.*R.*ZA2*SlA2*(S_v)A2)/(768*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(R. A2 . *R. *ZA4 * S 1 A2 * ( S_v) A2)/ ( 1 6* ( 1  +  ZA2/4  +  ZA4/64)A4)  -  ... 

(1075.*R.A4*SlA2*ZA2*(S_v)A2)/(73728*(l  +  ZA2/4  +  ZA4/64)A4) 

(43.*R.A4.*R.*ZA2*SlA2*ZA2*(S_v)A2)/(768*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 


152 


(125.*R.A5.*R.*Z*SlA2*ZA3*(S_v)A2)/(6144*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(5.*R.A5.*R.*ZA3*SlA2*ZA3*(S_v)A2)/(64*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(60109.*R  A6*SlA2*ZA4*(S_v)A2)/(2359296*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(407.*R.A6.*R.*ZA2*SlA2*ZA4*(S_v)A2)/(8192*(l  +  ZA2/4  +  ZA4/64)A4)  -  ... 

(4985.*R.A7.*R.*Z*SlA2*ZA5*(S_v)A2)/(147456*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(7.*R.A7.*R.*ZA3*SlA2*ZA5*(S_v)A2)/(1536*(l  +  ZA2/4  +  ZA4/64)A4)  - ... 

(671.*R.A8*SlA2*ZA6*(S_v)A2)/(131072*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(739.*R  A8.*R.*ZA2*SlA2*ZA6*(S_v)A2)/(8192*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(17111.*R.A9.*R.*Z*SlA2*ZA7*(S_v)A2)/(589824*(l  +  ZA2/4  +  ZA4/64)A4) 

(3787661. *R.A10*SlA2*ZA8*(S_v)A2)/(301989888*(l  +  ZA2/4  +  ZA4/64)A4)  +... 

(31395.*R  A10.*R.*ZA2*SlA2*ZA8*(S_v)A2)/(1048576*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(67529.  *R.All.*R.*Z*SlA2*ZA9*(S_v)A2)/(1572864*(l  +  ZA2/4  +  ZA4/64)A4)  +... 
(1627151.*R.A12*SlA2*ZA10*(S_v)A2)/(100663296*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(19657.*R  A12.*R.*ZA2*SlA2*ZA10*(S_v)A2)/(2359296*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(486493.  *R.A1 3.  *R.  *Z*S  1  A2*ZA1  l*(S_v)A2)/(25165824*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(24 1 027273.  *R.A14*SlA2*ZA12*(S_v)A2)/(9663676416*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(17773.*R  A14.*R.*ZA2*SlA2*ZA12*(S_v)A2)/(8388608*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(3710335.*R.A15.*R.*Z*SlA2*ZA13*(S_v)A2)/(603979776*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(53  842355.  *R.A16*SlA2*ZA14*(S_v)A2)/(3221225472*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(201  l.*R.A16.*R.*ZA2*SlA2*ZA14*(S_v)A2)/(4194304*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(981421,*R.A17.*R.*Z*SlA2*ZA15*(S_v)A2)/(603979776*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(19618549477. *R.A18*SlA2*ZA16*(S_v)A2)/(2473901 162496*(1  +  ZA2/4  +  ZA4/64)A4)  +... 

(206775.  *R.A1 8.  *R.*ZA2*SlA2*ZA16*(S_v)A2)/(2147483648*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(60705  l.*R.A19.*R.*Z*SlA2*ZA17*(S_v)A2)/(  161 06 12736*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(94466866  l.*R.A20*SlA2*ZA18*(S_v)A2)/(309237645312*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(108275.*R  A20.*R.*ZA2*SlA2*ZA18*(S_v)A2)/(6442450944*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(4002553.  *R.A21.*R.*Z*SlA2*ZA19*(S_v)A2)/(51539607552*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(3348433219.*R.A22*SlA2*ZA20*(S_v)A2)/(3298534883328*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(512435.*R.A22.*R.*ZA2*SlA2*ZA20*(S_v)A2)/(206158430208*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(5778425. *R.A23.*R.*Z*SlA2*ZA21*(S_v)A2)/(412316860416*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(14846261 11.  *R.A24*SlA2*ZA22*(S_v)A2)/(4947802324992*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(21031.*R.A24.*R.*ZA2*SlA2*ZA22*(S_v)A2)/(68719476736*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

( 1071 8225.  *R.A25.*R.*Z*SlA2*ZA23*(S_v)A2)/(4947802324992*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(33848465467.*R.A26*SlA2*ZA24*(S_v)A2)/(422212465065984*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(272987.  *R.A26.*R.*ZA2*SlA2*ZA24*(S_v)A2)/(8796093022208*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(11158205. *R.A27.*R.*Z*SlA2*ZA25*(S_v)A2)/(39582418599936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(2475004596  l.*R.A28*SlA2*ZA26*(S_v)A2)/(1266637395197952*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(11305.*R.A28.*R.*ZA2*SlA2*ZA26*(S_v)A2)/(439804651 1 104*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(6450277. *R.A29.*R.*Z*SlA2*ZA27*(S_v)A2)/(21 1 106232532992*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(5906459401  l.*R.A30*SlA2*ZA28*(S_v)A2)/(135107988821 1 1488*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(24225.  *R.A30.*R.*ZA2*SlA2*ZA28*(S_v)A2)/(  14073  7488355328*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(4624109.*R.A31.*R.*Z*SlA2*ZA29*(S_v)A2)/(1688849860263936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(36553306561. *R.A32*SlA2*ZA30*(S_v)A2)/(40532396646334464*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(323.*R  A32.*R.*ZA2*SlA2*ZA30*(S_v)A2)/(35184372088832*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(679915.*R.A33.*R.*Z*SlA2*ZA31*(S_v)A2)/(3377699720527872*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(118994721661  l.*R.A34*SlA2*ZA32*(S_v)A2)/(691752902764 1081 856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(27455.  *R.A34.*R.*ZA2*SlA2*ZA32*(S_v)A2)/(72057594037927936*(l  +  ZA2/4  +  ZA4/64)A4)  + 

( 108205.  *R.A35.*R.*Z*SlA2*ZA33*(S_v)A2)/(9007199254740992*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(1 0503079278  l.*R.A36*SlA2*ZA34*(S_v)A2)/(3458764513820540928*(l  +  ZA2/4  +  ZA4/64)A4)  + 
(855.*R.A36.*R.*ZA2*SlA2*ZA34*(S_v)A2)/(72057594037927936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(99064 1.  *R.  A37.  *R.*Z*SlA2*ZA35*(S_v)A2)/(  1 7293822569 10270464*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(548568674633. *R.A38*SlA2*ZA36*(S_v)A2)/... 

(1 10680464442257309696*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(1 805.  *R.A3  8.  *R.*ZA2*SlA2*ZA36*(S_v)A2)/(69 17529027641 081 856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(294785.  *R.A39.*R.*Z*SlA2*ZA37*(S_v)A2)/(  13  835058055282 1 637 12*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(10322387501. *R.A40*SlA2*ZA38*(S_v)A2)/... 


153 


(13  8350580552821 63  712*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(25.  *R.A40.*R.*ZA2*SlA2*ZA38*(S_v)A2)/(69 1 752902764 1 08 1856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(32965.  *R.A41.*R.*Z*SlA2*ZA39*(S_v)A2)/(55340232221 128654848*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(1 46260 147 125  l.*R.A42*SlA2*ZA40*(S_v)A2)/... 

(141 6709944860893564 1088*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(7.  *R.A42.*R.*ZA2*SlA2*ZA40*(S_v)A2)/(295 147905 179352825856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

( 1 5635.  *R.  A43.  *R.  *Z*S  lA2*ZA41*(S_v)A2)/(  1328 1 655733070877 16352*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(185335180013. *R.A44*SlA2*ZA42*(S_v)A2)/„. 

(141 6709944860893564 1088*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(3115.*R.A45.*R.*Z*SlA2*ZA43*(S_v)A2)/(21250649172913403461632*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(2057042720599.  *R.A46*SlA2*ZA44*(S_v)A2)/(  1 36004 1 54706645782 1544448*(1  +  ZA2/4  +  ZA4/64)A4) 
+  ... 

(49.*R.A47.*R.*Z*SlA2*ZA45*(S_v)A2)/(56668397794435742564352*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(24026340573. *R.A48*SlA2*ZA46*(S_v)A2)/... 

(151 11572745 1828646838272*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(5273670271697.*R.A50*SlA2*ZA48*(S_v)A2)/(348170636049013202315378688*(l  +  ZA2/4  + 
ZA4/64)A4)  +  ... 

(3  78230553 1 9.  *R.A52*SlA2*ZA50*(S_v)A2)/(290 142 1967075 1 1001 92948224*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(3 1266829573.  *R.A54*SlA2*ZA52*(S_v)A2)/(309485009821 34506872478 1056*(1  +  ZA2/4  +  ZA4/64)A4) 
+  ... 

(305764487.*R.A56*SlA2*ZA54*(S_v)A2)/(43521329506126650289422336*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(15567 1821505.*R.A58*SlA2*ZA56*(S_v)A2)/(35652673 13 14 1895 19 1709477765 12*(1  +  ZA2/4  + 
ZA4/64)A4)  +... 

(8605263625.  *R.A60*SlA2*ZA58*(S_v)A2)/(35652673 13 14 1895 191 709477765 12*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(44870 15 167.*R.A62*SlA2*ZA60*(S_v)A2)/(3802951800684688204490109616128*(l  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(64 197 1 3  l.*R.A64*SlA2*ZA62*(S_v)A2)/(  126765060022822940 1496703205376*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(7366421503.*R.A66*SlA2*ZA64*(S_v)A2)/(3894222643901 12072 1 39787224691 5072*(1  +  ZA2/4  + 

ZA4/64)A4)  +... 

(1 18374655. *R.A68*SlA2*ZA66*(S_v)A2)/(1947111321950560360698936123457536*(l  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

( 1032 1 7975.  *R.  A70*S  1  A2*ZA68*(S_v)A2)/(623075623024 1793 1 54236595595064 1 152*(1  +  ZA2/4  + 
ZA4/64)A4)  +  ... 

(1 169089.  *R.A72*SlA2*ZA70*(S_v)A2)/(3 1 15378 115 1208965771 182977975320576*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

( 1 6453  7 1 5.  *R.A74*SlA2*ZA72*(S_v)A2)/(23926 1 03924 1 284857 12268527085046202368*(1  +  ZA2/4  + 
ZA4/64)A4)  +... 

(234365. *R.A76*SlA2*ZA74*(S_v)A2)/(23926103924128485712268527085046202368*(l  +  ZA2/4  + 
ZA4/64)A4)  +  ... 

(77905.  *R.A78*S1  A2*ZA76*(S_v)A2)/(7656353255721 1 154279259286672 1478475776*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

( 1 75.  *R.A80*SlA2*ZA78*(S_v)A2)/(25521 1775 190703  847597530955573  826 158592*(  1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(49.  *R.A82*SlA2*ZA80*(S_v)A2)/(2 177807 148294006 166 1 655974875633 1 65533 184*(1  +  ZA2/4  + 

ZA4/64)A4); 


Nsl=Nfl+Nc+Nrl; 

Phil=Nfl./[Nc+Nrl]; 

Be  1=1 ./[  1+Phi  1]; 

Gfl=Nfl./Nsl; 

Grl=[Nrl]./Nsl; 

Nhl=Nc+Nrl; 
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S2=4; 

Nf2=Br*[(ZA2).*exp(-2.*R.*Z)+(ZA2)*exp(-2*Z)-2*ZA2.*exp(-Z-R.*Z)]; 

Nr2=(R.A2*S2A2)/4  +  (25. *R  A2*S2A2*(S_v))/(384*(l  +  ZA2/4  +  ZA4/64)A2)+ 

(R.A2.*R.*ZA2*S2A2*(S_v))/(4*(l  +  ZA2/4  +  ZA4/64)A2) 

(43.*R.A4*S2A2*ZA2*(S_v))/(384*(l  +  ZA2/4  +  ZA4/64)A2)... 

+  (5.*R.A5.*R.*Z*S2A2*ZA3*(S_v))/(32*(l  +  ZA2/4  +  ZA4/64)A2)+ 

(407.*R.A6*S2A2*ZA4*(S_v))/(4096*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(7.*R.A7.*R.*Z*S2A2*ZA5*(S_v))/(768*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(539.*R.A8*S2A2*ZA6*(S_v))/(4096*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(85225.  *R.A10*S2A2*ZA8*(S_v))/(1572864*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(6487.*R.A12*S2A2*ZA10*(S_v))/(393216*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(17773.*R.A14*S2A2*ZA12*(S_v))/(4194304*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(201  l.*R.A16*S2A2*ZA14*(S_v))/(2097152*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(206775.  *R.A18*S2A2*ZA16*(S_v))/(  1073  74 1824*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(108275.*R.A20*S2A2*ZA18*(S_v))/(3221225472*(l  +  ZA2/4  +  ZA4/64)A2)  +... 

(512435.*R.A22*S2A2*ZA20*(S_v))/(103079215104*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(21031.*R.A24*S2A2*ZA22*(S_v))/(34359738368*(l  +  ZA2/4  +  ZA4/64)A2)  +... 

(272987. *R.A26*S2A2*ZA24*(S_v))/(439804651 1 104*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(1 1305.*R.A28*S2A2*ZA26*(S_v))/(2199023255552*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(24225.  *R.A30*S2A2*ZA28*(S_v))/(70368744177664*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(323.  *R.A32*S2A2*ZA30*(S_v))/(  175921 860444 16*(1  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(27455.  *R.A34*S2A2*ZA32*(S_v))/(36028797018963968*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(855.*R.A36*S2A2*ZA34*(S_v))/(36028797018963968*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

( 1 805.  *R.A38*S2A2*ZA36*(S_v))/(345  87645 13  820540928*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(25.*R.A40*S2A2*ZA38*(S_v))/(3458764513820540928*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(7.  *R.A42*S2A2*ZA40*(S_v))/(  1475739525896764 12928*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(625.*R.A2*S2A2*(S_v)A2)/(147456*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(25.*R.A2.*R.*ZA2*S2A2*(S_v)A2)/(768*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(R.A2.*R.*ZA4*S2A2*(S_v)A2)/(16*(l  +  ZA2/4  +  ZA4/64)A4)  -  ... 

(1075.*R.A4*S2A2*ZA2*(S_v)A2)/(73728*(l  +  ZA2/4  +  ZA4/64)A4) 

(43.*R.A4.*R.*ZA2*S2A2*ZA2*(S_v)A2)/(768*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(125.*R  A5.*R.*Z*S2A2*ZA3*(S_v)A2)/(6144*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(5.*R.A5.*R.*ZA3*S2A2*ZA3*(S_v)A2)/(64*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(60109.*R.A6*S2A2*ZA4*(S_v)A2)/(2359296*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(407.*R.A6.*R.*ZA2*S2A2*ZA4*(S_v)A2)/(8192*(l  +  ZA2/4  +  ZA4/64)A4)  -  ... 

(4985.*R.A7.*R.*Z*S2A2*ZA5*(S_v)A2)/(147456*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(7.*R.A7.*R.*ZA3*S2A2*ZA5*(S_v)A2)/(1536*(l  +  ZA2/4  +  ZA4/64)A4)  -  ... 

(671.*R.A8*S2A2*ZA6*(S_v)A2)/(131072*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(739.*R.A8.*R.*ZA2*S2A2*ZA6*(S_v)A2)/(8192*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(1711 1  .*R.A9.*R.*Z*S2A2*ZA7*(S_v)A2)/(589824*(l  +  ZA2/4  +  ZA4/64)A4) 

(3787661. *R.A10*S2A2*ZA8*(S_v)A2)/(301989888*(l  +  ZA2/4  +  ZA4/64)A4)  +... 

(31395.*R.A10.*R.*ZA2*S2A2*ZA8*(S_v)A2)/(1048576*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(67529.  *R.All.*R.*Z*S2A2*ZA9*(S_v)A2)/(1572864*(l  +  ZA2/4  +  ZA4/64)A4)  +... 

(1627151. *R.A12*S2A2*ZA10*(S_v)A2)/(100663296*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(19657.*R.A12.*R.*ZA2*S2A2*ZA10*(S_v)A2)/(2359296*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(486493.  *R.A1 3.  *R.  *Z*S2A2*ZA1  l*(S_v)A2)/(25165824*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(24 1 027273.  *R.A14*S2A2*ZA12*(S_v)A2)/(9663676416*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(17773.*R.A14.*R.*ZA2*S2A2*ZA12*(S_v)A2)/(8388608*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(3710335.*R.A15.*R.*Z*S2A2*ZA13*(S_v)A2)/(603979776*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(53  842355.  *R.A16*S2A2*ZA14*(S_v)A2)/(3221225472*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(201  l.*R.A16.*R.*ZA2*S2A2*ZA14*(S_v)A2)/(4194304*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(981421.*R.A17.*R.*Z*S2A2*ZA15*(S_v)A2)/(603979776*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(19618549477. *R.A18*S2A2*ZA16*(S_v)A2)/(2473901 162496*(1  +  ZA2/4  +  ZA4/64)A4)  +... 

(206775.  *R.A1 8.  *R.*ZA2*S2A2*ZA16*(S_v)A2)/(2147483648*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(60705  l.*R.A19.*R.*Z*S2A2*ZA17*(S_v)A2)/(  161 06 12736*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 
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(94466866  l.*R.A20*S2A2*ZA18*(S_v)A2)/(309237645312*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(108275.*R.A20.*R.*ZA2*S2A2*ZA18*(S_v)A2)/(6442450944*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(4002553.  *R.A21.*R.*Z*S2A2*ZA19*(S_v)A2)/(51539607552*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(3348433219.*R  A22*S2A2*ZA20*(S_v)A2)/(3298534883328*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(512435.*R.A22.*R.*ZA2*S2A2*ZA20*(S_v)A2)/(206158430208*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(5778425.*R.A23.*R.*Z*S2A2*ZA21*(S_v)A2)/(412316860416*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(14846261 11.  *R.A24*S2A2*ZA22*(S_v)A2)/(4947802324992*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(21031.*R.A24.*R.*ZA2*S2A2*ZA22*(S_v)A2)/(68719476736*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

( 1071 8225.  *R.A25.*R.*Z*S2A2*ZA23*(S_v)A2)/(4947802324992*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(33848465467.*R.A26*S2A2*ZA24*(S_v)A2)/(422212465065984*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(272987.  *R.A26.*R.*ZA2*S2A2*ZA24*(S_v)A2)/(8796093022208*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(11158205. *R.A27.*R.*Z*S2A2*ZA25*(S_v)A2)/(39582418599936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(2475004596  l.*R.A28*S2A2*ZA26*(S_v)A2)/(1266637395197952*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(11305.*R.A28.*R.*ZA2*S2A2*ZA26*(S_v)A2)/(439804651 1 104*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(6450277. *R.A29.*R.*Z*S2A2*ZA27*(S_v)A2)/(21 1 106232532992*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(5906459401  l.*R.A30*S2A2*ZA28*(S_v)A2)/(135107988821 1 1488*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(24225.  *R.A30.*R.*ZA2*S2A2*ZA28*(S_v)A2)/(  14073  7488355328*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(46241 09.  *R.A31.*R.*Z*S2A2*ZA29*(S_v)A2)/(1688849860263936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(36553306561. *R.A32*S2A2*ZA30*(S_v)A2)/(40532396646334464*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(323.*R.A32.*R.*ZA2*S2A2*ZA30*(S_v)A2)/(35184372088832*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(679915.*R.A33.*R.*Z*S2A2*ZA31*(S_v)A2)/(3377699720527872*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(118994721661  l.*R.A34*S2A2*ZA32*(S_v)A2)/(691752902764 1081 856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(27455.  *R.A34.*R.*ZA2*S2A2*ZA32*(S_v)A2)/(72057594037927936*(l  +  ZA2/4  +  ZA4/64)A4)  + 

( 108205.  *R.A35.*R.*Z*S2A2*ZA33*(S_v)A2)/(9007199254740992*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(1 0503079278  l.*R.A36*S2A2*ZA34*(S_v)A2)/(3458764513820540928*(l  +  ZA2/4  +  ZA4/64)A4)  + 
(855.*R.A36.*R.*ZA2*S2A2*ZA34*(S_v)A2)/(72057594037927936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(99064 1.  *R.  A37.  *R.*Z*S2A2*ZA35*(S_v)A2)/(  17293  822569 10270464*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(548568674633. *R.A38*S2A2*ZA36*(S_v)A2)/... 

(1 10680464442257309696*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(1 805.  *R.A3  8.  *R.*ZA2*S2A2*ZA36*(S_v)A2)/(69 17529027641 081 856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(294785.  *R.A39.*R.*Z*S2A2*ZA37*(S_v)A2)/(  13  835058055282 1 637 12*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(10322387501. *R.A40*S2A2*ZA38*(S_v)A2)/... 

(1 3835058055282 163712*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(25.  *R.A40.*R.*ZA2*S2A2*ZA38*(S_v)A2)/(69 17529027641 08 1856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(32965.  *R.A41.*R.*Z*S2A2*ZA39*(S_v)A2)/(55340232221 128654848*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(1462601471251. *R.A42*S2A2*ZA40*(S_v)A2)/... 

(14 16709944860893564 1088*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(7.  *R.A42.*R.*ZA2*S2A2*ZA40*(S_v)A2)/(295 147905 179352825856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

( 1 5635.  *R.  A43.  *R.*Z*S2A2*ZA41*(S_v)A2)/(  1328 1 655733070877 16352*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(185335180013. *R.A44*S2A2*ZA42*(S_v)A2)/„. 

(14 16709944860893564 1088*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(3115.*R.A45.*R.*Z*S2A2*ZA43*(S_v)A2)/(21250649172913403461632*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(2057042720599.  *R.A46*S2A2*ZA44*(S_v)A2)/(l  36004 1 54706645782 1544448*(1  +  ZA2/4  +  ZA4/64)A4) 
+  ... 

(49.*R.A47.*R.*Z*S2A2*ZA45*(S_v)A2)/(56668397794435742564352*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(24026340573. *R.A48*S2A2*ZA46*(S_v)A2)/... 

(1511 1572745 1828646838272*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(5273670271697.*R.A50*S2A2*ZA48*(S_v)A2)/(348170636049013202315378688*(l  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(37823055319.*R.A52*S2A2*ZA50*(S_v)A2)/(29014219670751 100192948224*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(3 1266829573.  *R.A54*S2A2*ZA52*(S_v)A2)/(309485009821 34506872478 1056*(1  +  ZA2/4  +  ZA4/64)A4) 
+  ... 

(305764487.*R.A56*S2A2*ZA54*(S_v)A2)/(43521329506126650289422336*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
( 15567 1 821505.  *R.A58*S2A2*ZA56*(S_v)A2 )/(35652673 13 14 1895 19 1709477765 12*(1  +  ZA2/4  + 
ZA4/64)A4)  +... 
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(8605263625.  *R.A60*S2A2*ZA58*(S_v)A2)/(35652673 13 14 1895 191 709477765 12*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(44870 15 167.*R.A62*S2A2*ZA60*(S_v)A2)/(3802951800684688204490109616128*(l  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(64 197 1 3  l.*R.A64*S2A2*ZA62*(S_v)A2)/(  126765060022822940 14967032053  76*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(7366421503.*R.A66*S2A2*ZA64*(S_v)A2)/(3894222643901 12072 1 39787224691 5072*(1  +  ZA2/4  + 

ZA4/64)A4)  +... 

(1 18374655. *R.A68*S2A2*ZA66*(S_v)A2)/(1947111321950560360698936123457536*(l  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

( 10321 7975.  *R.  A70*S2A2*ZA68*(S_v)A2)/(62307562302417931542365955950641152*(l  +  ZA2/4  + 
ZA4/64)A4)  +  ... 

(1 169089.  *R.A72*S2A2*ZA70*(S_v)A2)/(3 1 15378 1 151208965771 182977975320576*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

( 1 64537 1 5.  *R.A74*S2A2*ZA72*(S_v)A2)/(23926 1 03924 1 284857 12268527085046202368*(1  +  ZA2/4  + 
ZA4/64)A4)  +... 

(234365. *R.A76*S2A2*ZA74*(S_v)A2)/(23926103924128485712268527085046202368*(l  +  ZA2/4  + 
ZA4/64)A4)  +  ... 

(77905.  *R.A78*S2A2*ZA76*(S_v)A2)/(7656353255721 1 154279259286672 1478475776*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(175.*R.A80*S2A2*ZA78*(S_v)A2)/(25521 1775 190703  847597530955573  826 158592*(  1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(49.  *R.A82*S2A2*ZA80*(S_v)A2)/(2 177807 148294006 166 1 655974875633 1 65533 184*(1  +  ZA2/4  + 

ZA4/64)A4); 


Ns2=Nf2+Nc+Nr2; 

Phi2  =N  f2./[N  c+N  r2  ] ; 

Be2=l./[1+Phi2]; 

Gf2=Nf2./Ns2; 

Gr2=[Nr2]./Ns2; 

Nh2=Nc+Nr2; 


ZA2/4 


ZA2/4 


S3=8; 

Nf3=Br*[(ZA2).*exp(-2.*R.*Z)+(ZA2)*exp(-2*Z)-2*ZA2.*exp(-Z-R.*Z)]; 
Nr3=(R.A2*S3A2)/4  +  (25. *R  A2*S3A2*(S_v))/(384*(l  + 

(R.A2.*R.*ZA2*S3A2*(S_v))/(4*(l  +  ZA2/4  +  ZA4/64)A2)  -... 
(43.*R.A4*S3A2*ZA2*(S_v))/(384*(l  +  ZA2/4  +  ZA4/64)A2)... 

+  (5.*R  A5.*R.*Z*S3A2*ZA3*(S_v))/(32*(l  + 

(407.*R.A6*S3A2*ZA4*(S_v))/(4096*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 
(7.*R.A7.*R.*Z*S3A2*ZA5*(S_v))/(768*(l  +  ZA2/4 

(539.*R.A8*S3A2*ZA6*(S_v))/(4096*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(85225.  *R.A10*S3A2*ZA8*(S_v))/(1572864*(l  +  ZA2/4 

(6487.*R.A12*S3A2*ZA10*(S_v))/(393216*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 
(17773.*R.A14*S3A2*ZA12*(S_v))/(4194304*(l  +  ZA2/4 

(201  l.*R.A16*S3A2*ZA14*(S_v))/(2097152*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(206775.  *R.A1 8*S3A2*ZA1 6*(S_v))/(  1073  74 1824*(1  +  ZA2/4 

(1 08275.  *R.A20*S3A2*ZA18*(S_v))/(3221225472*(l  +  ZA2/4  +  ZA4/64)A2) 

(512435. *R.A22*S3A2*ZA20*(S_v))/(103079215104*(l  +  ZA2/4 

(21031.*R  A24*S3A2*ZA22*(S_v))/(34359738368*(l  +  ZA2/4  +  ZA4/64)A2) 
(272987.*R.A26*S3A2*ZA24*(S_v))/(439804651 1 104*(1  +  ZA2/4 

(1 1305. *R  A28*S3A2*ZA26*(S_v))/(2199023255552*(l  +  ZA2/4  +  ZA4/64)A 
(24225.  *R.A30*S3A2*ZA28*(S_v))/(70368744177664*(l  +  ZA2/4 

(323.  *R.A32*S3A2*ZA30*(S_v))/(  175921 860444 16*(1  +  ZA2/4  +  ZA4/64)/ 
(27455.*R.A34*S3A2*ZA32*(S_v))/(36028797018963968*(l  +  Z 

(855.*R.A36*S3A2*ZA34*(S_v))/(36028797018963968*(l  +  ZA2/4  +  ZA4/64)A2)  +  .. 


ZA4/64)A2)+ 


ZA4/64)A2)+ 


+ 

ZA4/64)A2) 

+ 

+ 

ZA4/64)A2) 

+ 

+ 

ZA4/64)A2) 

+ 

+ 

ZA4/64)A2) 

+ 

+... 

+ 

ZA4/64)A2) 

+ 

+... 

\  + 

ZA4/64)A2) 

+ 

'2)  +  ... 

1  + 

ZA4/64)A2) 

+ 

:)  +  ... 

1/4  + 

ZA4/64)A2) 

+ 
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( 1 805.  *R.  A38*S3  A2*ZA36*(S_v))/(345  87645 13  820540928*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(25.*R.A40*S3A2*ZA38*(S_v))/(3458764513820540928*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(7.  *R.A42*S3A2*ZA40*(S_v))/(  1475739525896764 12928*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(625.*R.A2*S3A2*(S_v)A2)/(147456*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(25.*R.A2.*R.*ZA2*S3A2*(S_v)A2)/(768*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(R  A2.*R.*ZA4*S3A2*(S_v)A2)/(16*(l  +  ZA2/4  +  ZA4/64)A4)  -  ... 

(1075.*R.A4*S3A2*ZA2*(S_v)A2)/(73728*(l  +  ZA2/4  +  ZA4/64)A4) 

(43.*R.A4.*R.*ZA2*S3A2*ZA2*(S_v)A2)/(768*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(125.*R.A5.*R.*Z*S3A2*ZA3*(S_v)A2)/(6144*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(5.*R.A5.*R.*ZA3*S3A2*ZA3*(S_v)A2)/(64*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(60109.*R  A6*S3A2*ZA4*(S_v)A2)/(2359296*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(407.*R.A6.*R.*ZA2*S3A2*ZA4*(S_v)A2)/(8192*(l  +  ZA2/4  +  ZA4/64)A4)  -  ... 

(4985.*R.A7.*R.*Z*S3A2*ZA5*(S_v)A2)/(147456*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(7.*R.A7.*R.*ZA3*S3A2*ZA5*(S_v)A2)/(1536*(l  +  ZA2/4  +  ZA4/64)A4)  - ... 

(671.*R.A8*S3A2*ZA6*(S_v)A2)/(131072*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(739.*R.A8.*R.*ZA2*S3A2*ZA6*(S_v)A2)/(8192*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(17111.*R.A9.*R.*Z*S3A2*ZA7*(S_v)A2)/(589824*(l  +  ZA2/4  +  ZA4/64)A4) 

(3787661. *R.A10*S3A2*ZA8*(S_v)A2)/(301989888*(l  +  ZA2/4  +  ZA4/64)A4)  +... 

(31395.*R.A10.*R.*ZA2*S3A2*ZA8*(S_v)A2)/(1048576*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(67529.  *R.All.*R.*Z*S3A2*ZA9*(S_v)A2)/(1572864*(l  +  ZA2/4  +  ZA4/64)A4)  +... 

(1627151. *R.A12*S3A2*ZA10*(S_v)A2)/(100663296*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(19657.*R.A12.*R.*ZA2*S3A2*ZA10*(S_v)A2)/(2359296*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(486493.  *R.A1 3.  *R.  *Z*S3A2*ZA1  l*(S_v)A2)/(25165824*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(24 1 027273.  *R.A14*S3A2*ZA12*(S_v)A2)/(9663676416*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(17773.*R.A14.*R.*ZA2*S3A2*ZA12*(S_v)A2)/(8388608*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(3710335.*R.A15.*R.*Z*S3A2*ZA13*(S_v)A2)/(603979776*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(53  842355.  *R.A16*S3A2*ZA14*(S_v)A2)/(3221225472*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(2011.*R  A16.*R.*ZA2*S3A2*ZA14*(S_v)A2)/(4194304*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(981421.*R.A17.*R.*Z*S3A2*ZA15*(S_v)A2)/(603979776*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(19618549477. *R.A18*S3A2*ZA16*(S_v)A2)/(2473901 162496*(1  +  ZA2/4  +  ZA4/64)A4)  +... 

(206775.  *R.A1 8.  *R.*ZA2*S3A2*ZA16*(S_v)A2)/(2147483648*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(60705  l.*R.A19.*R.*Z*S3A2*ZA17*(S_v)A2)/(  161 06 12736*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(94466866  l.*R.A20*S3A2*ZA18*(S_v)A2)/(309237645312*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(108275.*R  A20.*R.*ZA2*S3A2*ZA18*(S_v)A2)/(6442450944*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(4002553.  *R.A21.*R.*Z*S3A2*ZA19*(S_v)A2)/(51539607552*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(3348433219.*R  A22*S3A2*ZA20*(S_v)A2)/(3298534883328*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(512435.*R.A22.*R.*ZA2*S3A2*ZA20*(S_v)A2)/(206158430208*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(5778425. *R.A23.*R.*Z*S3A2*ZA21*(S_v)A2)/(412316860416*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(14846261 11.  *R.A24*S3A2*ZA22*(S_v)A2)/(4947802324992*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(21031.*R.A24.*R.*ZA2*S3A2*ZA22*(S_v)A2)/(68719476736*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

( 1071 8225.  *R.A25.*R.*Z*S3A2*ZA23*(S_v)A2)/(4947802324992*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(33848465467.*R.A26*S3A2*ZA24*(S_v)A2)/(422212465065984*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(272987.*R.A26.*R.*ZA2*S3A2*ZA24*(S_v)A2)/(8796093022208*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(11158205. *R.A27.*R.*Z*S3A2*ZA25*(S_v)A2)/(39582418599936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(24750045961. *R.A28*S3A2*ZA26*(S_v)A2)/(1266637395197952*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(11305.*R.A28.*R.*ZA2*S3A2*ZA26*(S_v)A2)/(439804651 1 104*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(6450277. *R.A29.*R.*Z*S3A2*ZA27*(S_v)A2)/(21 1 106232532992*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(5906459401  l.*R.A30*S3A2*ZA28*(S_v)A2)/(135107988821 1 1488*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(24225.  *R.A30.*R.*ZA2*S3A2*ZA28*(S_v)A2)/(  14073  7488355328*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(46241 09.  *R.A31.*R.*Z*S3A2*ZA29*(S_v)A2)/(1688849860263936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(36553306561. *R.A32*S3A2*ZA30*(S_v)A2)/(40532396646334464*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(323.*R.A32.*R.*ZA2*S3A2*ZA30*(S_v)A2)/(35184372088832*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(679915.*R.A33.*R.*Z*S3A2*ZA31*(S_v)A2)/(3377699720527872*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(11899472 166  ll.*R.A34*S3A2*ZA32*(S_v)A2)/(6917529027641081856*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(27455.  *R.A34.*R.*ZA2*S3A2*ZA32*(S_v)A2)/(72057594037927936*(l  +  ZA2/4  +  ZA4/64)A4)  + 

( 108205.  *R.A35.*R.*Z*S3A2*ZA33*(S_v)A2)/(9007199254740992*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
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(105030792781. *R.A36*S3A2*ZA34*(S_v)A2)/(3458764513820540928*(l  +  ZA2/4  +  ZA4/64)A4)  + 
(855.*R.A36.*R.*ZA2*S3A2*ZA34*(S_v)A2)/(72057594037927936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(99064 1.  *R.  A37.  *R.  *Z*S3A2*ZA35*(S_v)A2  )/(l  7293822569 10270464*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(548568674633. *R.A38*S3A2*ZA36*(S_v)A2)/... 

(1 10680464442257309696*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(1 805.  *R.  A38.  *R.*ZA2*S3A2*ZA36*(S_v)A2)/(69 17529027641 08 1856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(294785.  *R.  A39.  *R.*Z*S3A2*ZA37*(S_v)A2)/(  13  835058055282 1 637 12*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(10322387501. *R.A40*S3A2*ZA38*(S_v)A2)/... 

(13  835058055282 163712*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(25.  *R.  A40.  *R.  *ZA2*S3  A2*ZA38*(S_v)A2)/(69 17529027641 08 1856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(32965.  *R.A41.*R.*Z*S3A2*ZA39*(S_v)A2)/(55340232221 128654848*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(1 46260 147 125  l.*R.A42*S3A2*ZA40*(S_v)A2)/... 

(141 6709944860893564 1088*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(7.  *R.A42.*R.*ZA2*S3A2*ZA40*(S_v)A2)/(295 147905 179352825856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

( 1 5635.  *R.  A43.  *R.*Z*S3A2*ZA41*(S_v)A2)/(  1328 1 655733070877 16352*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(185335180013. *R.A44*S3A2*ZA42*(S_v)A2)/.„ 

(14 16709944860893564 1088*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(3115.*R.A45.*R.*Z*S3A2*ZA43*(S_v)A2)/(21250649172913403461632*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(2057042720599.  *R.A46*S3A2*ZA44*(S_v)A2)/(l  36004 1 54706645782 1544448*(1  +  ZA2/4  +  ZA4/64)A4) 
+  ... 

(49.*R.A47.*R.*Z*S3A2*ZA45*(S_v)A2)/(56668397794435742564352*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(24026340573. *R.A48*S3A2*ZA46*(S_v)A2)/... 

(151 11572745 1828646838272*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(5273670271697.*R.A50*S3A2*ZA48*(S_v)A2)/(348170636049013202315378688*(l  +  ZA2/4  + 
ZA4/64)A4)  +  ... 

(37823055319.*R.A52*S3A2*ZA50*(S_v)A2)/(29014219670751 100192948224*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(3 1266829573.  *R.A54*S3A2*ZA52*(S_v)A2)/(309485009821 34506872478 1056*(1  +  ZA2/4  +  ZA4/64)A4) 
+  ... 

(305764487.*R.A56*S3A2*ZA54*(S_v)A2)/(43521329506126650289422336*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(15567 1 821505.  *R.A58*S3A2*ZA56*(S_v)A2 )/(35652673 13 14 1895 19 1709477765 12*(1  +  ZA2/4  + 
ZA4/64)A4)  +... 

(8605263625.  *R.A60*S3A2*ZA58*(S_v)A2)/(35652673 13 14 1895 191 709477765 12*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(44870 15 167.*R.A62*S3A2*ZA60*(S_v)A2)/(3802951800684688204490109616128*(l  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(64 197 1 3  l.*R.A64*S3A2*ZA62*(S_v)A2)/(  126765060022822940 1 4967032053  76*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(7366421503.*R.A66*S3A2*ZA64*(S_v)A2)/(3894222643901 12072 1 3978722469 15072*(1  +  ZA2/4  + 

ZA4/64)A4)  +... 

(1 18374655. *R.A68*S3A2*ZA66*(S_v)A2)/(1947111321950560360698936123457536*(l  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

( 1032 1 7975.  *R.  A70*S3  A2*ZA68*(S_v)A2)/(623075623024 1793 1 54236595595064 1 152*(1  +  ZA2/4  + 
ZA4/64)A4)  +  ... 

(1 169089.  *R.A72*S3A2*ZA70*(S_v)A2)/(3 1 15378 115 1208965771 182977975320576*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

( 16453  71 5.  *R.  A74*S3A2*ZA72*(S_v)A2)/(23926 1 03924 1 284857 12268527085046202368*(1  +  ZA2/4  + 
ZA4/64)A4)  +... 

(234365. *R.A76*S3A2*ZA74*(S_v)A2)/(23926103924128485712268527085046202368*(l  +  ZA2/4  + 
ZA4/64)A4)  +  ... 

(77905.*R.A78*S3A2*ZA76*(S_v)A2)/(7656353255721 1 154279259286672 1478475776*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(175.*R.A80*S3A2*ZA78*(S_v)A2)/(25521 1775 190703  847597530955573826 158592*(  1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(49.  *R.A82*S3A2*ZA80*(S_v)A2)/(2 177807 148294006 166 1 655974875633 1 65533 184*(1  +  ZA2/4  + 
ZA4/64)A4); 
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Ns3=Nf3+Nc+Nr3; 

Phi3=Nf3./[Nc+Nr3]; 

Be3=l./[1+Phi3]; 

Gf3=NG./Ns3; 

Gr3=[Nr3]./Ns3; 

Nh3=Nc+Nr3; 


S4=12; 

Nf4=Br*[(ZA2).*exp(-2.*R.*Z)+(ZA2)*exp(-2*Z)-2*ZA2.*exp(-Z-R.*Z)]; 

Nr4=(R.A2*S4A2)/4  +  (25. *R  A2*S4A2*(S_v))/(384*(l  +  ZA2/4  +  ZA4/64)A2)+ 

(R.A2.*R.*ZA2*S4A2*(S_v))/(4*(l  +  ZA2/4  +  ZA4/64)A2) 

(43.*R.A4*S4A2*ZA2*(S_v))/(384*(l  +  ZA2/4  +  ZA4/64)A2)... 

+  (5.*R.A5.*R.*Z*S4A2*ZA3*(S_v))/(32*(l  +  ZA2/4  +  ZA4/64)A2)+ 

(407.*R  A6*S4A2*ZA4*(S_v))/(4096*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(7.*R.A7.*R.*Z*S4A2*ZA5*(S_v))/(768*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(539.*R.A8*S4A2*ZA6*(S_v))/(4096*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(85225.  *R.A10*S4A2*ZA8*(S_v))/(1572864*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(6487.*R.A12*S4A2*ZA10*(S_v))/(393216*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(17773.*R.A14*S4A2*ZA12*(S_v))/(4194304*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(201  l.*R.A16*S4A2*ZA14*(S_v))/(2097152*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(206775.  *R.A18*S4A2*ZA16*(S_v))/(  1073  74 1824*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(108275.*R.A20*S4A2*ZA18*(S_v))/(3221225472*(l  +  ZA2/4  +  ZA4/64)A2)  +... 

(512435.*R.A22*S4A2*ZA20*(S_v))/(103079215104*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(21031.*R.A24*S4A2*ZA22*(S_v))/(34359738368*(l  +  ZA2/4  +  ZA4/64)A2)  +... 

(272987. *R.A26*S4A2*ZA24*(S_v))/(439804651 1 104*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(1 1305.*R.A28*S4A2*ZA26*(S_v))/(2199023255552*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(24225.  *R.A30*S4A2*ZA28*(S_v))/(70368744177664*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(323.  *R.A32*S4A2*ZA30*(S_v))/(  175921 860444 16*(1  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(27455.  *R.A34*S4A2*ZA32*(S_v))/(36028797018963968*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(855.*R.A36*S4A2*ZA34*(S_v))/(36028797018963968*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

( 1 805.  *R.A38*S4A2*ZA36*(S_v))/(345  87645 13820540928*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(25.*R.A40*S4A2*ZA38*(S_v))/(3458764513820540928*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(7.  *R.A42*S4A2*ZA40*(S_v))/(  1475739525896764 12928*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(625.*R.A2*S4A2*(S_v)A2)/(147456*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(25.*R.A2.*R.*ZA2*S4A2*(S_v)A2)/(768*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(R.A2.*R.*ZA4*S4A2*(S_v)A2)/(16*(l  +  ZA2/4  +  ZA4/64)A4)  -  ... 

(1075.*R.A4*S4A2*ZA2*(S_v)A2)/(73728*(l  +  ZA2/4  +  ZA4/64)A4) 

(43.*R.A4.*R.*ZA2*S4A2*ZA2*(S_v)A2)/(768*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(125.*R  A5.*R.*Z*S4A2*ZA3*(S_v)A2)/(6144*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(5.*R.A5.*R.*ZA3*S4A2*ZA3*(S_v)A2)/(64*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(60109.*R.A6*S4A2*ZA4*(S_v)A2)/(2359296*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(407.*R.A6.*R.*ZA2*S4A2*ZA4*(S_v)A2)/(8192*(l  +  ZA2/4  +  ZA4/64)A4)  -  ... 

(4985.*R.A7.*R.*Z*S4A2*ZA5*(S_v)A2)/(147456*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(7.*R.A7.*R.*ZA3*S4A2*ZA5*(S_v)A2)/(1536*(l  +  ZA2/4  +  ZA4/64)A4)  -  ... 

(671.*R  A8*S4A2*ZA6*(S_v)A2)/(131072*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(739.*R.A8.*R.*ZA2*S4A2*ZA6*(S_v)A2)/(8192*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(17111  .*R.  A9.*R.*Z*S4A2*ZA7*(S_v)A2)/(589824*(  1  +  ZA2/4  +  ZA4/64)A4) 

(3787661. *R.A10*S4A2*ZA8*(S_v)A2)/(301989888*(l  +  ZA2/4  +  ZA4/64)A4)  +... 

(31395.*R.A10.*R.*ZA2*S4A2*ZA8*(S_v)A2)/(1048576*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(67529.  *R.All.*R.*Z*S4A2*ZA9*(S_v)A2)/(1572864*(l  +  ZA2/4  +  ZA4/64)A4)  +... 
(1627151.*R.A12*S4A2*ZA10*(S_v)A2)/(100663296*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(19657.*R.A12.*R.*ZA2*S4A2*ZA10*(S_v)A2)/(2359296*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(486493.  *R.A1 3.  *R.  *Z*S4A2*ZA1  l*(S_v)A2)/(25165824*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(241 027273.  *R.A14*S4A2*ZA12*(S_v)A2)/(9663676416*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
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(17773.*R.A14.*R.*ZA2*S4A2*ZA12*(S_v)A2)/(8388608*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(3710335.*R.A15.*R.*Z*S4A2*ZA13*(S_v)A2)/(603979776*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(53  842355.  *R.A16*S4A2*ZA14*(S_v)A2)/(3221225472*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(201  l.*R.A16.*R.*ZA2*S4A2*ZA14*(S_v)A2)/(4194304*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(981421.*R.A17.*R.*Z*S4A2*ZA15*(S_v)A2)/(603979776*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(19618549477. *R.A18*S4A2*ZA16*(S_v)A2)/(2473901 162496*(1  +  ZA2/4  +  ZA4/64)A4)  +... 

(206775.  *R.A1 8.  *R.*ZA2*S4A2*ZA16*(S_v)A2)/(2147483648*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(60705  l.*R.A19.*R.*Z*S4A2*ZA17*(S_v)A2)/(  161 06 12736*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(94466866  l.*R.A20*S4A2*ZA18*(S_v)A2)/(309237645312*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(108275.*R.A20.*R.*ZA2*S4A2*ZA18*(S_v)A2)/(6442450944*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(4002553.  *R.A21.*R.*Z*S4A2*ZA19*(S_v)A2)/(51539607552*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(3348433219.*R  A22*S4A2*ZA20*(S_v)A2)/(3298534883328*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(512435.*R.A22.*R.*ZA2*S4A2*ZA20*(S_v)A2)/(206158430208*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(5778425. *R.A23.*R.*Z*S4A2*ZA21*(S_v)A2)/(412316860416*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(14846261 11.  *R.A24*S4A2*ZA22*(S_v)A2)/(4947802324992*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(21031.*R.A24.*R.*ZA2*S4A2*ZA22*(S_v)A2)/(68719476736*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

( 107 1 8225.  *R.A25.*R.*Z*S4A2*ZA23*(S_v)A2)/(4947802324992*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(33848465467.*R.A26*S4A2*ZA24*(S_v)A2)/(422212465065984*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(272987.*R.A26.*R.*ZA2*S4A2*ZA24*(S_v)A2)/(8796093022208*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(11158205. *R.A27.*R.*Z*S4A2*ZA25*(S_v)A2)/(39582418599936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(24750045961. *R.A28*S4A2*ZA26*(S_v)A2)/(1266637395197952*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(11305.*R.A28.*R.*ZA2*S4A2*ZA26*(S_v)A2)/(439804651 1 104*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(6450277. *R.A29.*R.*Z*S4A2*ZA27*(S_v)A2)/(21 1 106232532992*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(5906459401  l.*R.A30*S4A2*ZA28*(S_v)A2)/(135107988821 1 1488*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(24225.  *R.A30.*R.*ZA2*S4A2*ZA28*(S_v)A2)/(  14073  7488355328*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(46241 09.  *R.A31.*R.*Z*S4A2*ZA29*(S_v)A2)/(1688849860263936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(36553306561. *R.A32*S4A2*ZA30*(S_v)A2)/(40532396646334464*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(323.*R.A32.*R.*ZA2*S4A2*ZA30*(S_v)A2)/(35184372088832*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(679915.*R.A33.*R.*Z*S4A2*ZA31*(S_v)A2)/(3377699720527872*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(118994721661  l.*R.A34*S4A2*ZA32*(S_v)A2)/(6917529027641081856*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(27455.  *R.A34.*R.*ZA2*S4A2*ZA32*(S_v)A2)/(72057594037927936*(l  +  ZA2/4  +  ZA4/64)A4)  + 

( 108205.  *R.A35.*R.*Z*S4A2*ZA33*(S_v)A2)/(9007199254740992*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

( 10503079278  l.*R.A36*S4A2*ZA34*(S_v)A2)/(3458764513820540928*(l  +  ZA2/4  +  ZA4/64)A4)  + 
(855.*R.A36.*R.*ZA2*S4A2*ZA34*(S_v)A2)/(72057594037927936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(99064 1.  *R.  A37.  *R.*Z*S4A2*ZA35*(S_v)A2)/(  17293  822569 10270464*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(548568674633. *R.A38*S4A2*ZA36*(S_v)A2)/... 

(1 10680464442257309696*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(1 805.  *R.A3  8.  *R.*ZA2*S4A2*ZA36*(S_v)A2)/(69 1752902764 1081 856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(294785.  *R.A39.*R.*Z*S4A2*ZA37*(S_v)A2)/(  13  835058055282 163  7 12*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(10322387501. *R.A40*S4A2*ZA38*(S_v)A2)/... 

(13  8350580552821 63  712*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(25.*R.A40.*R.*ZA2*S4A2*ZA38*(S_v)A2)/(6917529027641081856*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(32965.  *R.A41.*R.*Z*S4A2*ZA39*(S_v)A2)/(55340232221 128654848*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(1462601471251. *R.A42*S4A2*ZA40*(S_v)A2)/... 

(14 16709944860893564 1088*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(7.  *R.A42.*R.*ZA2*S4A2*ZA40*(S_v)A2)/(295 147905 179352825856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

( 1 5635.  *R.  A43.  *R.*Z*S4A2*ZA41*(S_v)A2)/(  1328 1 655733070877 16352*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(185335180013. *R.A44*S4A2*ZA42*(S_v)A2)/„. 

(141 6709944860893564 1088*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(31 15.*R.A45.*R.*Z*S4A2*ZA43*(S_v)A2)/(21250649172913403461632*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(2057042720599.  *R.A46*S4A2*ZA44*(S_v)A2)/(l  36004 1 54706645782 1544448*(1  +  ZA2/4  +  ZA4/64)A4) 
+  ... 

(49.*R.A47.*R.*Z*S4A2*ZA45*(S_v)A2)/(56668397794435742564352*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(24026340573. *R.A48*S4A2*ZA46*(S_v)A2)/... 
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(1511 1572745 1828646838272*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(5273670271697.*R.A50*S4A2*ZA48*(S_v)A2)/(348170636049013202315378688*(l  +  ZA2/4  + 
ZA4/64)A4)  +  ... 

(37823055319.*R.A52*S4A2*ZA50*(S_v)A2)/(29014219670751 100192948224*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(3 1266829573.  *R.A54*S4A2*ZA52*(S_v)A2)/(309485009821 34506872478 1056*(1  +  ZA2/4  +  ZA4/64)A4) 
+  ... 

(305764487.*R.A56*S4A2*ZA54*(S_v)A2)/(43521329506126650289422336*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
( 15567 1 821505.  *R.A58*S4A2*ZA56*(S_v)A2 )/(35652673 13 14 1895 19 1709477765 12*(1  +  ZA2/4  + 
ZA4/64)A4)  +... 

(8605263625.  *R.A60*S4A2*ZA58*(S_v)A2)/(35652673 13 14 1895 191 709477765 12*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(44870 15 167.*R.A62*S4A2*ZA60*(S_v)A2)/(3802951800684688204490109616128*(l  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(64 197 1 3  l.*R.A64*S4A2*ZA62*(S_v)A2)/(  126765060022822940 1 4967032053  76*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(7366421503.*R.A66*S4A2*ZA64*(S_v)A2)/(3894222643901 12072 1 39787224691 5072*(1  +  ZA2/4  + 

ZA4/64)A4)  +... 

(1 18374655. *R.A68*S4A2*ZA66*(S_v)A2)/(1947111321950560360698936123457536*(l  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

( 10321 7975.  *R.  A70*S4A2*ZA68*(S_v)A2)/(62307562302417931542365955950641152*(l  +  ZA2/4  + 
ZA4/64)A4)  +  ... 

(1 169089.  *R.A72*S4A2*ZA70*(S_v)A2)/(31 15378 115 1208965771 182977975320576*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

( 1 6453  7 1 5.  *R.A74*S4A2*ZA72*(S_v)A2)/(23926 1 03924 1 284857 12268527085046202368*(1  +  ZA2/4  + 
ZA4/64)A4)  +... 

(234365. *R.A76*S4A2*ZA74*(S_v)A2)/(23926103924128485712268527085046202368*(l  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(77905.*R.A78*S4A2*ZA76*(S_v)A2)/(7656353255721 1 154279259286672 1478475776*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(175.*R  A80*S4A2*ZA78*(S_v)A2)/(25521 1775 190703  847597530955573826 158592*(  1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(49.  *R.A82*S4A2*ZA80*(S_v)A2)/(2 177807 148294006 166 1 655974875633 1 65533 184*(1  +  ZA2/4  + 

ZA4/64)A4); 


N  s4=N  f4+N  c+Nr4 ; 

Phi4=Nf4./[N  c+N  r4  ] ; 

Be4=l./[1+Phi4]; 

Gf4=Nf4./Ns4; 

Gr4=[Nr4]./Ns4; 

Nh4=Nc+Nr4; 


S5=16; 

Nf5=Br*[(ZA2).*exp(-2.*R.*Z)+(ZA2)*exp(-2*Z)-2*ZA2.*exp(-Z-R.*Z)]; 
Nr5=(R.A2*S5A2)/4  +  (25. *R  A2*S5A2*(S_v))/(384*(l  +  ZA2/4 

(R.A2.*R.*ZA2*S5A2*(S_v))/(4*(l  +  ZA2/4  +  ZA4/64)A2)  -... 
(43.*R.A4*S5A2*ZA2*(S_v))/(384*(l  +  ZA2/4  +  ZA4/64)A2)... 

+  (5.*R.A5.*R.*Z*S5A2*ZA3*(S_v))/(32*(l  +  ZA2/4 

(407.*R.A6*S5A2*ZA4*(S_v))/(4096*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 
(7.*R.A7.*R.*Z*S5A2*ZA5*(S_v))/(768*(l  +  ZA2/4  + 

(539.*R.A8*S5A2*ZA6*(S_v))/(4096*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(85225.  *R.A10*S5A2*ZA8*(S_v))/(1572864*(l  +  ZA2/4  + 

(6487.*R.A12*S5A2*ZA10*(S_v))/(393216*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 
(17773.*R.A14*S5A2*ZA12*(S_v))/(4194304*(l  +  ZA2/4  + 

(201  l.*R.A16*S5A2*ZA14*(S_v))/(2097152*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 


+  ZA4/64)A2)+ 

+  ZA4/64)A2)+ 

ZA4/64)A2)  + 

ZA4/64)A2)  + 

ZA4/64)A2)  + 
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(206775.  *R. A  18*S5A2*ZA16*(S_v))/(  1073  74 1824*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(108275.*R.A20*S5A2*ZA18*(S_v))/(3221225472*(l  +  ZA2/4  +  ZA4/64)A2)  +... 

(512435. *R.A22*S5A2*ZA20*(S_v))/(103079215104*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(21031.*R.A24*S5A2*ZA22*(S_v))/(34359738368*(l  +  ZA2/4  +  ZA4/64)A2)  +... 

(272987. *R.A26*S5A2*ZA24*(S_v))/(439804651 1 104*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(1 1305. *R  A28*S5A2*ZA26*(S_v))/(2199023255552*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(24225.  *R.A30*S5A2*ZA28*(S_v))/(70368744177664*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(323.  *R.A32*S5A2*ZA30*(S_v))/(  175921 860444 16*(1  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(27455.  *R.A34*S5A2*ZA32*(S_v))/(36028797018963968*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(855.*R.A36*S5A2*ZA34*(S_v))/(36028797018963968*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 
(1805.*R.A38*S5A2*ZA36*(S_v))/(3458764513820540928*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(25.*R.A40*S5A2*ZA38*(S_v))/(3458764513820540928*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(7.  *R.A42*S5A2*ZA40*(S_v))/(  1475739525896764 12928*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(625.*R.A2*S5A2*(S_v)A2)/(147456*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(25.*R.A2.*R.*ZA2*S5A2*(S_v)A2)/(768*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(R  A2.*R.*ZA4*S5A2*(S_v)A2)/(16*(l  +  ZA2/4  +  ZA4/64)A4)  -  ... 

(1075.*R.A4*S5A2*ZA2*(S_v)A2)/(73728*(l  +  ZA2/4  +  ZA4/64)A4) 

(43.*R.A4.*R.*ZA2*S5A2*ZA2*(S_v)A2)/(768*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(125.*R.A5.*R.*Z*S5A2*ZA3*(S_v)A2)/(6144*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(5.*R.A5.*R.*ZA3*S5A2*ZA3*(S_v)A2)/(64*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(60109.*R.A6*S5A2*ZA4*(S_v)A2)/(2359296*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(407.*R.A6.*R.*ZA2*S5A2*ZA4*(S_v)A2)/(8192*(l  +  ZA2/4  +  ZA4/64)A4)  -  ... 

(4985.*R.A7.*R.*Z*S5A2*ZA5*(S_v)A2)/(147456*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(7.*R.A7.*R.*ZA3*S5A2*ZA5*(S_v)A2)/(1536*(l  +  ZA2/4  +  ZA4/64)A4)  - ... 

(671.*R.A8*S5A2*ZA6*(S_v)A2)/(131072*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(739.*R  A8.*R.*ZA2*S5A2*ZA6*(S_v)A2)/(8192*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(1711 1  .*R.A9.*R.*Z*S5A2*ZA7*(S_v)A2)/(589824*(l  +  ZA2/4  +  ZA4/64)A4) 

(3787661. *R.A10*S5A2*ZA8*(S_v)A2)/(301989888*(l  +  ZA2/4  +  ZA4/64)A4)  +... 

(31395.*R  A10.*R.*ZA2*S5A2*ZA8*(S_v)A2)/(1048576*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(67529.  *R.A  11.  *R.*Z*S5A2*ZA9*(S_v)A2)/(1572864*(l  +  ZA2/4  +  ZA4/64)A4)  +... 

(1627151. *R.A12*S5A2*ZA10*(S_v)A2)/(100663296*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(19657.*R  A12.*R.*ZA2*S5A2*ZA10*(S_v)A2)/(2359296*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(486493.  *R.A1 3.  *R.  *Z*S5A2*ZA1  l*(S_v)A2)/(25165824*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(24 1 027273.  *R.A14*S5A2*ZA12*(S_v)A2)/(9663676416*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(17773.*R  A14.*R.*ZA2*S5A2*ZA12*(S_v)A2)/(8388608*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(3710335.*R  A15.*R.*Z*S5A2*ZA13*(S_v)A2)/(603979776*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(53  842355.  *R.A16*S5A2*ZA14*(S_v)A2)/(3221225472*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(201  l.*R.A16.*R.*ZA2*S5A2*ZA14*(S_v)A2)/(4194304*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(981421,*R  A17.*R.*Z*S5A2*ZA15*(S_v)A2)/(603979776*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(1 961 8549477.  *R.A  1 8*S5A2*ZA1 6*(S_v)A2)/(247390 1 162496*(1  +  ZA2/4  +  ZA4/64)A4)  +... 

(206775.  *R.A1 8.  *R.*ZA2*S5A2*ZA16*(S_v)A2)/(2147483648*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(60705  l.*R.A19.*R.*Z*S5A2*ZA17*(S_v)A2)/(  161 06 12736*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(94466866  l.*R.A20*S5A2*ZA18*(S_v)A2)/(309237645312*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(108275.*R.A20.*R.*ZA2*S5A2*ZA18*(S_v)A2)/(6442450944*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(4002553.  *R.A21.*R.*Z*S5A2*ZA19*(S_v)A2)/(51539607552*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(3348433219.*R  A22*S5A2*ZA20*(S_v)A2)/(3298534883328*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(512435.*R.A22.*R.*ZA2*S5A2*ZA20*(S_v)A2)/(206158430208*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(5778425. *R.A23.*R.*Z*S5A2*ZA21*(S_v)A2)/(412316860416*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(14846261 11.  *R.A24*S5A2*ZA22*(S_v)A2)/(4947802324992*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(21031.*R.A24.*R.*ZA2*S5A2*ZA22*(S_v)A2)/(68719476736*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

( 1071 8225.  *R.A25.*R.*Z*S5A2*ZA23*(S_v)A2)/(4947802324992*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(33848465467.*R.A26*S5A2*ZA24*(S_v)A2)/(422212465065984*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(272987.  *R.A26.*R.*ZA2*S5A2*ZA24*(S_v)A2)/(8796093022208*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(11158205. *R.A27.*R.*Z*S5A2*ZA25*(S_v)A2)/(39582418599936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(24750045961. *R.A28*S5A2*ZA26*(S_v)A2)/(1266637395197952*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(11305.*R.A28.*R.*ZA2*S5A2*ZA26*(S_v)A2)/(439804651 1 104*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 
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(6450277. *R.A29. *R.*Z*S5A2*ZA27*(S_v)A2)/(21 1 106232532992*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(5906459401  l.*R.A30*S5A2*ZA28*(S_v)A2)/(135107988821 1 1488*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(24225.  *R.A30.*R.*ZA2*S5A2*ZA28*(S_v)A2)/(  14073  7488355328*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(4624109.*R.A31.*R.*Z*S5A2*ZA29*(S_v)A2)/(1688849860263936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(36553306561. *R.A32*S5A2*ZA30*(S_v)A2)/(40532396646334464*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(323.*R.A32.*R.*ZA2*S5A2*ZA30*(S_v)A2)/(35184372088832*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(679915.*R.A33.*R.*Z*S5A2*ZA31*(S_v)A2)/(3377699720527872*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(1 18994721661 1.: *R  A34*S5A2*ZA32*(S_v)A2)/(6917529027641081856*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(27455.  *R.A34.*R.*ZA2*S5A2*ZA32*(S_v)A2)/(72057594037927936*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(108205.*R.A35.*R.*Z*S5A2*ZA33*(S_v)A2)/(9007199254740992*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

( 1 0503079278  l.*R.A36*S5A2*ZA34*(S_v)A2)/(3458764513820540928*(l  +  ZA2/4  +  ZA4/64)A4)  + 
(855.*R  A36.*R.*ZA2*S5A2*ZA34*(S_v)A2)/(72057594037927936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(99064 1.  *R.  A37.  *R.*Z*S5A2*ZA35*(S_v)A2)/(  17293  822569 10270464*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(548568674633. *R.A38*S5A2*ZA36*(S_v)A2)/... 

(1 10680464442257309696*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(1 805.  *R.A38.*R.*ZA2*S5A2*ZA36*(S_v)A2)/(69 17529027641 08 1856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(294785.  *R.A39.*R.*Z*S5A2*ZA37*(S_v)A2)/(  13  835058055282 163  7 12*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(10322387501. *R.A40*S5A2*ZA38*(S_v)A2)/... 

(13  8350580552821 63  712*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(25.  *R.A40.*R.*ZA2*S5A2*ZA38*(S_v)A2)/(69 17529027641 08 1856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(32965.  *R.A41.*R.*Z*S5A2*ZA39*(S_v)A2)/(55340232221 128654848*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(1462601471251. *R.A42*S5A2*ZA40*(S_v)A2)/... 

(14 16709944860893564 1088*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(7.  *R.A42.*R.*ZA2*S5A2*ZA40*(S_v)A2)/(295 147905 179352825856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

( 1 5635.  *R.  A43.  *R.*Z*S5A2*ZA41*(S_v)A2)/(  1328 1 655733070877 16352*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(185335180013. *R.A44*S5A2*ZA42*(S_v)A2)/.„ 

(141 6709944860893564 1088*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(31 15.*R.A45.*R.*Z*S5A2*ZA43*(S_v)A2)/(21250649172913403461632*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(2057042720599.  *R.A46*S5A2*ZA44*(S_v)A2)/(l  36004 1 54706645782 1544448*(1  +  ZA2/4  +  ZA4/64)A4) 
+  ... 

(49.*R.A47.*R.*Z*S5A2*ZA45*(S_v)A2)/(56668397794435742564352*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(24026340573. *R.A48*S5A2*ZA46*(S_v)A2)/... 

(151 11572745 1828646838272*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(5273670271697.*R.A50*S5A2*ZA48*(S_v)A2)/(348170636049013202315378688*(l  +  ZA2/4  + 
ZA4/64)A4)  +  ... 

(37823055319.*R.A52*S5A2*ZA50*(S_v)A2)/(29014219670751 100192948224*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(3 1266829573.  *R.A54*S5A2*ZA52*(S_v)A2)/(309485009821 34506872478 1056*(1  +  ZA2/4  +  ZA4/64)A4) 
+  ... 

(305764487.*R.A56*S5A2*ZA54*(S_v)A2)/(43521329506126650289422336*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(155671821505.*R.A58*S5A2*ZA56*(S_v)A2)/(35652673 13 14 1895 19 1709477765 12*(1  +  ZA2/4  + 
ZA4/64)A4)  +... 

(8605263625.  *R.A60*S5A2*ZA58*(S_v)A2)/(35652673 13 14 1895 191 709477765 12*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(44870 15 167.*R.A62*S5A2*ZA60*(S_v)A2)/(3802951 800684688204490 1096 16128*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(64 197 1 3  l.*R.A64*S5A2*ZA62*(S_v)A2)/(  126765060022822940 1 4967032053  76*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(7366421503.*R.A66*S5A2*ZA64*(S_v)A2)/(3894222643901 12072 1 39787224691 5072*(1  +  ZA2/4  + 

ZA4/64)A4)  +... 

(1 18374655. *R.A68*S5A2*ZA66*(S_v)A2)/(1947111321950560360698936123457536*(l  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(103217975. *R.A70*S5A2*ZA68*(S_v)A2)/(6230756230241793 1542365955950641 152*(1  +  ZA2/4  + 
ZA4/64)A4)  +  ... 

(1 169089.  *R.A72*S5A2*ZA70*(S_v)A2)/(31 15378 115 120896577 1182977975320576*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 
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( 1 6453  7 1 5.  *R.A74*S5A2*ZA72*(S_v)A2)/(23926 1 03924 1 284857 12268527085046202368*(1 
ZA4/64)A4)  +... 

(234365. *R.A76*S5A2*ZA74*(S_v)A2)/(23926103924128485712268527085046202368*(l 
ZA4/64)A4)  +  ... 

(77905.*R.A78*S5A2*ZA76*(S_v)A2)/(7656353255721 1 154279259286672 1478475776*(1 
ZA4/64)A4)  +  ... 

(175.*R.A80*S5A2*ZA78*(S_v)A2)/(25521 1775 190703  847597530955573826 158592*(  1 

ZA4/64)A4)  +  ... 

(49.  *R.A82*S5A2*ZA80*(S_v)A2)/(2 177807 148294006 166 1 655974875633 1 65533 184*(1  4 

ZA4/64)A4); 


Ns5=Nf5+Nc+Nr5; 

Phi5=Nf5  ,/[Nc+Nr5] ; 

Be5=l./[1+Phi5]; 

Gf5=Nf5./Ns5; 

Gr5=[Nr5]./Ns5; 

Nh5=Nc+Nr5; 


plot(R,Nsl,'b',R,Ns2,'g',R,Ns3,'r',R,Ns4,'k',R,Ns5,'m') 

%  plot(R,Bel,'b',R,Be2,'g',R,Be3,'r',R,Be4,'k',R,Be5,'m') 

%  plot(R,Phil,'b',R,Phi2,'g',R,Phi3,'r',R,Phi4,'k',R,Phi5,'m') 
%  plot(R,Gfl,'b',R,Gf2,'g',R,Gf3,'r',R,Gf4,'k',R,Gf5,'m') 

%  plot(R,Grl,'b',R,Gr2,'g',R,Gr3,'r',R,Gr4,'k',R,Gr5,'m') 

%  plot(R,Nfl,'b',R,Nf2,'g',R,NG,'r',R,Nf4,'k',R,Nf5,'m') 

%  plot(R,Nhl,'b',R,Nh2,'g',R,Nh3,'r',R,Nh4,'k',R,Nh5,'m') 

PLOTTOOLS  ON 


+  ZA2/4  + 
ZA2/4  + 
ZA2/4  + 
ZA2/4  + 
ZA2/4  + 
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2.5.  Distribution  of  Ns,Be,  O ,  GF ,  GR,  NF  and  N  H  versus  Y  for  a  range  of  S 


and  set  of  S ,  Z ,  Br  &  Pe 


S=l;  Z=l;  Br=l;  Pe=10; 

%  S=2.5;  Z=2;  FirO.5;  Pe=5; 

%  %  %  %  %  Z=4;  S=10;  Br=0.6;  Pe=8; 

%  %  %  %  %  Z=5;  S=0.75;  Br=0.2;  Pe=2; 
%  %  %  %  %  Z=10;  S=5;  Br=l;  Pe=7.5; 

%  %  %  %  %  Z=20;  S=15;  Br=0.9;  Pe=10; 


q=1.86; 

s=l; 

Dh=250*10A-6; 
R=0:0.005 : 1 ; 


Nc=[l/PeA2]*[16*qA2+sA2*DhA2+8*q*s*Dh]; 


S_vl=l; 

Nfl=Br*[(ZA2).*exp(-2.*R.*Z)+(ZA2)*exp(-2*Z)-2*ZA2.*exp(-Z-R.*Z)]; 

Nrl=(R.A2*SA2)/4  +  (25.*R  A2*SA2*(S_vl))/(384*(l  +  ZA2/4  +  ZA4/64)A2)+ 

(R.A2.*R.*ZA2*SA2*(S_vl))/(4*(l  +  ZA2/4  +  ZA4/64)A2) 

(43.*R.A4*SA2*ZA2*(S_vl))/(384*(l  +  ZA2/4  +  ZA4/64)A2)... 

+  (5.*R.A5.*R.*Z*SA2*ZA3*(S_vl))/(32*(l  +  ZA2/4  +  ZA4/64)A2)+ 

(407.*R  A6*SA2*ZA4*(S_vl))/(4096*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(7.*R.A7.*R.*Z*SA2*ZA5*(S_vl))/(768*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(539.*R.A8*SA2*ZA6*(S_vl))/(4096*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(85225.  *R.A10*SA2*ZA8*(S_vl))/(1572864*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(6487.*R.A12*SA2*ZA10*(S_vl))/(393216*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(17773.*R.A14*SA2*ZA12*(S_vl))/(4194304*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(201  l.*R.A16*SA2*ZA14*(S_vl))/(2097152*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(206775.  *R.  A18*SA2*ZA16*(S_vl))/(  1073  74 1824*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(108275. *R.A20*SA2*ZA18*(S_vl))/(3221225472*(l  +  ZA2/4  +  ZA4/64)A2)  +... 

(512435.*R.A22*SA2*ZA20*(S_vl))/(103079215104*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(21031.*R.A24*SA2*ZA22*(S_vl))/(34359738368*(l  +  ZA2/4  +  ZA4/64)A2)  +... 

(272987. *R.A26*SA2*ZA24*(S_vl))/(439804651 1 104*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(1 1305.*R.A28*SA2*ZA26*(S_vl))/(2199023255552*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(24225.  *R.A30*SA2*ZA28*(S_vl))/(70368744177664*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(323.  *R.A32*SA2*ZA30*(S_vl))/(  175921 860444 16*(1  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(27455.  *R.A34*SA2*ZA32*(S_vl))/(36028797018963968*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(855.*R.A36*SA2*ZA34*(S_vl))/(36028797018963968*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 
(1805.*R.A38*SA2*ZA36*(S_vl))/(3458764513820540928*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(25.*R.A40*SA2*ZA38*(S_vl))/(3458764513820540928*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(7.  *R.A42*SA2*ZA40*(S_vl  ))/(l  475739525896764 12928*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(625.*R.A2*SA2*(S_vl)A2)/(147456*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(25.*R.A2.*R.*ZA2*SA2*(S_vl)A2)/(768*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(R.A2.*R.*ZA4*SA2*(S_vl)A2)/(16*(l  +  ZA2/4  +  ZA4/64)A4)  -  ... 

(1075.*R.A4*SA2*ZA2*(S_vl)A2)/(73728*(l  +  ZA2/4  +  ZA4/64)A4) 

(43.*R.A4.*R.*ZA2*SA2*ZA2*(S_vl)A2)/(768*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
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(125.*R.A5.*R.*Z*SA2*ZA3*(S_vl)A2)/(6144*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(5.*R.A5.*R.*ZA3*SA2*ZA3*(S_vl)A2)/(64*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(60109.*R.A6*SA2*ZA4*(S_vl)A2)/(2359296*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(407.*R.A6.*R.*ZA2*SA2*ZA4*(S_vl)A2)/(8192*(l  +  ZA2/4  +  ZA4/64)A4)  -  ... 

(4985.*R.A7.*R.*Z*SA2*ZA5*(S_vl)A2)/(147456*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(7.*R.A7.*R.*ZA3*SA2*ZA5*(S_vl)A2)/(1536*(l  +  ZA2/4  +  ZA4/64)A4)  - ... 

(671.*R.A8*SA2*ZA6*(S_vl)A2)/(131072*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(739.*R.A8.*R.*ZA2*SA2*ZA6*(S_vl)A2)/(8192*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(171  ll.*R.A9.*R.*Z*SA2*ZA7*(S_vl)A2)/(589824*(l  +  ZA2/4  +  ZA4/64)A4) 

(3787661. *R.A10*SA2*ZA8*(S_vl)A2)/(301989888*(l  +  ZA2/4  +  ZA4/64)A4)  +... 

(31395.*R.A10.*R.*ZA2*SA2*ZA8*(S_vl)A2)/(1048576*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(67529.  *R.All.*R.*Z*SA2*ZA9*(S_vl)A2)/(1572864*(l  +  ZA2/4  +  ZA4/64)A4)  +... 
(1627151.*R.A12*SA2*ZA10*(S_vl)A2)/(100663296*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(19657.*R.A12.*R.*ZA2*SA2*ZA10*(S_vl)A2)/(2359296*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(486493.  *R.  A1 3.  *R.  *Z*SA2*ZA1  l*(S_vl)A2)/(25165824*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(24 1 027273.  *R.A14*SA2*ZA12*(S_vl)A2)/(9663676416*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(17773.*R.A14.*R.*ZA2*SA2*ZA12*(S_vl)A2)/(8388608*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(3710335.*R.A15.*R.*Z*SA2*ZA13*(S_vl)A2)/(603979776*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(53  842355.  *R.A16*SA2*ZA14*(S_vl)A2)/(3221225472*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(20 1 1  .*R.A  1 6.  *R.  *ZA2*SA2*ZA  1 4*(S_vl  )A2)/(4 1 94304*(  1  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(981421,*R.A17.*R.*Z*SA2*ZA15*(S_vl)A2)/(603979776*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(19618549477. *R.A18*SA2*ZA16*(S_vl)A2)/(2473901 162496*(1  +  ZA2/4  +  ZA4/64)A4)  +... 

(206775.  *R.A1 8.  *R.*ZA2*SA2*ZA16*(S_vl)A2)/(2147483648*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(607051.*R.A19.*R.*Z*SA2*ZA17*(S_vl)A2)/(1610612736*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(94466866  l.*R.A20*SA2*ZA18*(S_vl)A2)/(309237645312*(l  +  ZA2/4  +  ZA4/64)A4)  + 

( 108275.  *R.A20.*R.*ZA2*SA2*ZA18*(S_vl)A2)/(6442450944*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(4002553.  *R.A21.*R.*Z*SA2*ZA19*(S_vl)A2)/(51539607552*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(3348433219.*R.A22*SA2*ZA20*(S_vl)A2)/(3298534883328*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(512435.*R.A22.*R.*ZA2*SA2*ZA20*(S_vl)A2)/(206158430208*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(5778425. *R.A23.*R.*Z*SA2*ZA21*(S_vl)A2)/(412316860416*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(14846261 11.  *R.A24*SA2*ZA22*(S_vl)A2)/(4947802324992*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(21031.*R.A24.*R.*ZA2*SA2*ZA22*(S_vl)A2)/(68719476736*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

( 1071 8225.  *R.A25.*R.*Z*SA2*ZA23*(S_vl)A2)/(4947802324992*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(33848465467.*R.A26*SA2*ZA24*(S_vl)A2)/(422212465065984*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(272987.  *R.A26.*R.*ZA2*SA2*ZA24*(S_vl)A2)/(8796093022208*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(11158205. *R.A27.*R.*Z*SA2*ZA25*(S_vl)A2)/(39582418599936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(24750045961/ *R  A28*SA2*ZA26*(S_vl)A2)/(1266637395197952*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(11305.*R.A28.*R.*ZA2*SA2*ZA26*(S_vl)A2)/(439804651 1 104*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(6450277. *R.A29.*R.*Z*SA2*ZA27*(S_vl)A2)/(21 1 106232532992*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(5906459401  l.*R.A30*SA2*ZA28*(S_vl)A2)/(135107988821 1 1488*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(24225.  *R.  A30.*R.*ZA2*SA2*ZA28*(S_vl)A2)/(  14073  7488355328*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(46241 09.  *R.A31.*R.*Z*SA2*ZA29*(S_vl)A2)/(1688849860263936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(36553306561. *R.A32*SA2*ZA30*(S_vl)A2)/(40532396646334464*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(323.*R.A32.*R.*ZA2*SA2*ZA30*(S_vl)A2)/(35184372088832*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(679915.*R.A33.*R.*Z*SA2*ZA31*(S_vl)A2)/(3377699720527872*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(1189947216611. *R.A34*SA2*ZA32*(S_vl)A2)/(6917529027641081856*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(27455.  *R.A34.*R.*ZA2*SA2*ZA32*(S_vl)A2)/(72057594037927936*(l  +  ZA2/4  +  ZA4/64)A4)  + 

( 108205.  *R.A35.*R.*Z*SA2*ZA33*(S_vl)A2)/(9007199254740992*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

( 1 0503079278  l.*R.A36*SA2*ZA34*(S_vl)A2)/(3458764513820540928*(l  +  ZA2/4  +  ZA4/64)A4)  + 
(855.*R.A36.*R.*ZA2*SA2*ZA34*(S_vl)A2)/(72057594037927936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(99064 1.  *R.  A37.  *R.*Z*SA2*ZA35*(S_vl)A2)/(  1 7293822569 10270464*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(548568674633. *R.A38*SA2*ZA36*(S_vl)A2)/... 

(1 10680464442257309696*(1  +  ZA2/4  +  ZA4/64)A4)  + 

( 1 805.  *R.A3  8.  *R.*ZA2*SA2*ZA36*(S_vl)A2)/(69 17529027641 081 856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(294785.  *R.  A39.*R.*Z*SA2*ZA37*(S_vl)A2)/(  13  835058055282 1 637 12*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(10322387501. *R.A40*SA2*ZA38*(S_vl)A2)/... 
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(13  8350580552821 63  712*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(25.  *R.A40.*R.*ZA2*SA2*ZA38*(S_vl)A2)/(69 17529027641 081 856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(32965.  *R.A41.*R.*Z*SA2*ZA39*(S_vl)A2)/(55340232221128654848*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(1 46260 147 125  l.*R.A42*SA2*ZA40*(S_vl)A2)/... 

(141 6709944860893564 1088*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(7.  *R.A42.*R.*ZA2*SA2*ZA40*(S_vl)A2)/(295 147905 179352825856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

( 1 5635.  *R.  A43.  *R.  *Z*SA2*ZA4  l*(S_vl)A2)/(  1328 1 655733070877 16352*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(185335180013. *R.A44*SA2*ZA42*(S_vl)A2)/.„ 

(141 6709944860893564 1088*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(3115.*R.A45.*R.*Z*SA2*ZA43*(S_vl)A2)/(21250649172913403461632*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(2057042720599.  *R.A46*SA2*ZA44*(S_vl)A2)/(  1 36004 1 54706645782 1544448*(1  +  ZA2/4  +  ZA4/64)A4) 
+  ... 

(49.*R.A47.*R.*Z*SA2*ZA45*(S_vl)A2)/(56668397794435742564352*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(24026340573. *R.A48*SA2*ZA46*(S_vl)A2)/... 

(1511 1572745 1 82864683 8272*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(5273670271697.*R.A50*SA2*ZA48*(S_vl)A2)/(348170636049013202315378688*(l  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(3  78230553 1 9.  *R.A52*SA2*ZA50*(S_vl)A2)/(290 142 1967075 1 1001 92948224*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(3 1266829573.  *R.A54*SA2*ZA52*(S_vl)A2)/(309485009821 34506872478 1056*(1  +  ZA2/4  +  ZA4/64)A4) 
+  ... 

(305764487.*R.A56*SA2*ZA54*(S_vl)A2)/(43521329506126650289422336*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(15567 1 821505.  *R.A58*SA2*ZA56*(S_vl)A2 )/(35652673 13 14 1895 19 1709477765 12*(1  +  ZA2/4  + 

ZA4/64)A4)  +... 

(8605263625. *R.A60*SA2*ZA58*(S_vl)A2)/(356526731314189519170947776512*(l  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(44870 15 167.*R.A62*SA2*ZA60*(S_vl)A2 )/(380295 18006846882044901096 16128*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(64 197 1 3  l.*R.A64*SA2*ZA62*(S_vl)A2)/(  126765060022822940 14967032053  76*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(7366421503. *R.A66*SA2*ZA64*(S_vl)A2)/(3894222643901120721397872246915072*(l  +  ZA2/4  + 
ZA4/64)A4)  +... 

(1 18374655. *R.A68*SA2*ZA66*(S_vl)A2)/(1947111321950560360698936123457536*(l  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

( 1032 1 7975.  *R.A70*SA2*ZA68*(S_vl)A2)/(623075623024 1793 1 54236595595064 1 152*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(1 169089.  *R.A72*SA2*ZA70*(S_vl)A2)/(31 15378 115 1208965771 182977975320576*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

( 16453  71 5.  *R.A74*SA2*ZA72*(S_vl)A2)/(23926 1 03924 1 284857 12268527085046202368*(1  +  ZA2/4  + 
ZA4/64)A4)  +... 

(234365. *R.A76*SA2*ZA74*(S_vl)A2)/(23926103924128485712268527085046202368*(l  +  ZA2/4  + 
ZA4/64)A4)  +  ... 

(77905.*R.A78*SA2*ZA76*(S_vl)A2)/(7656353255721 1 154279259286672 1478475776*(1  +  ZA2/4  + 
ZA4/64)A4)  +  ... 

( 1 75.  *R.A80*SA2*ZA78*(S_vl)A2)/(25521 1775 190703  847597530955573  826 158592*(  1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(49.  *R.A82*SA2*ZA80*(S_vl)A2)/(2 177807 148294006 166 1 655974875633 1 65533 184*(1  +  ZA2/4  + 

ZA4/64)A4); 


Nsl=Nfl+Nc+Nrl; 

Phil=Nfl./[Nc+Nrl]; 

Be  1=1 ./[  1+Phi  1]; 

Gfl=Nfl./Nsl; 

Grl=[Nrl]./Nsl; 

Nhl=Nc+Nrl; 
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+ 


ZA4/64)A2)+ 


S_v2=4; 

Nf2=Br*[(ZA2).*exp(-2.*R.*Z)+(ZA2)*exp(-2*Z)-2*ZA2.*exp(-Z-R.*Z)]; 

Nr2=(R.A2*SA2)/4  +  (25.*R  A2*SA2*(S_v2))/(384*(l  +  ZA2/4 

(R.A2.*R.*ZA2*SA2*(S_v2))/(4*(l  +  ZA2/4  +  ZA4/64)A2) 

(43.*R.A4*SA2*ZA2*(S_v2))/(384*(l  +  ZA2/4  +  ZA4/64)A2)... 

+  (5.*R.A5.*R.*Z*SA2*ZA3*(S_v2))/(32*(l  +  ZA2/4  +  ZA4/64)A2)+ 

(407.*R  A6*SA2*ZA4*(S_v2))/(4096*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(7.*R.A7.*R.*Z*SA2*ZA5*(S_v2))/(768*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(539.*R.A8*SA2*ZA6*(S_v2))/(4096*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(85225.  *R.A10*SA2*ZA8*(S_v2))/(1572864*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(6487.*R.A12*SA2*ZA10*(S_v2))/(393216*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(17773.*R.A14*SA2*ZA12*(S_v2))/(4194304*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(201  l.*R.A16*SA2*ZA14*(S_v2))/(2097152*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(206775.  *R.A18*SA2*ZA16*(S_v2))/(  1073  74 1824*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(108275. *R.A20*SA2*ZA18*(S_v2))/(3221225472*(l  +  ZA2/4  +  ZA4/64)A2)  +... 

(512435.*R.A22*SA2*ZA20*(S_v2))/(103079215104*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(21031.*R.A24*SA2*ZA22*(S_v2))/(34359738368*(l  +  ZA2/4  +  ZA4/64)A2)  +... 

(272987. *R.A26*SA2*ZA24*(S_v2))/(439804651 1 104*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(1 1305.*R.A28*SA2*ZA26*(S_v2))/(2199023255552*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(24225.  *R.A30*SA2*ZA28*(S_v2))/(70368744177664*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(323.  *R.A32*SA2*ZA30*(S_v2))/(  175921 860444 16*(1  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(27455.  *R.A34*SA2*ZA32*(S_v2))/(36028797018963968*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(855.*R.A36*SA2*ZA34*(S_v2))/(36028797018963968*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

( 1 805.  *R.A38*SA2*ZA36*(S_v2))/(345  87645 13  820540928*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(25.*R.A40*SA2*ZA38*(S_v2))/(3458764513820540928*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(7.  *R.A42*SA2*ZA40*(S_v2))/(  1 475739525896764 12928*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(625.*R.A2*SA2*(S_v2)A2)/(147456*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(25.*R.A2.*R.*ZA2*SA2*(S_v2)A2)/(768*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(R.A2.*R.*ZA4*SA2*(S_v2)A2)/(16*(l  +  ZA2/4  +  ZA4/64)A4)  -  ... 

(1075.*R.A4*SA2*ZA2*(S_v2)A2)/(73728*(l  +  ZA2/4  +  ZA4/64)A4) 

(43.*R.A4.*R.*ZA2*SA2*ZA2*(S_v2)A2)/(768*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(125.*R.A5.*R.*Z*SA2*ZA3*(S_v2)A2)/(6144*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(5.*R.A5.*R.*ZA3*SA2*ZA3*(S_v2)A2)/(64*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(60109.*R.A6*SA2*ZA4*(S_v2)A2)/(2359296*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(407.*R.A6.*R.*ZA2*SA2*ZA4*(S_v2)A2)/(8192*(l  +  ZA2/4  +  ZA4/64)A4)  -  ... 

(4985.*R.A7.*R.*Z*SA2*ZA5*(S_v2)A2)/(147456*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(7.*R.A7.*R.*ZA3*SA2*ZA5*(S_v2)A2)/(1536*(l  +  ZA2/4  +  ZA4/64)A4)  - ... 

(671.*R.A8*SA2*ZA6*(S_v2)A2)/(131072*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(739.*R.A8.*R.*ZA2*SA2*ZA6*(S_v2)A2)/(8192*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(17111.*R.A9.*R.*Z*SA2*ZA7*(S_v2)A2)/(589824*(l  +  ZA2/4  +  ZA4/64)A4) 

(3787661. *R.A10*SA2*ZA8*(S_v2)A2)/(301989888*(l  +  ZA2/4  +  ZA4/64)A4)  +... 

(31395.*R.A10.*R.*ZA2*SA2*ZA8*(S_v2)A2)/(1048576*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(67529.  *R.All.*R.*Z*SA2*ZA9*(S_v2)A2)/(1572864*(l  +  ZA2/4  +  ZA4/64)A4)  +... 

(1627151. *R.A12*SA2*ZA10*(S_v2)A2)/(100663296*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(19657.*R.A12.*R.*ZA2*SA2*ZA10*(S_v2)A2)/(2359296*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(486493.  *R.A1 3.  *R.  *Z*SA2*ZA1  l*(S_v2)A2)/(25165824*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(24 1 027273.  *R.A14*SA2*ZA12*(S_v2)A2)/(9663676416*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(17773.*R.A14.*R.*ZA2*SA2*ZA12*(S_v2)A2)/(8388608*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(3710335.*R.A15.*R.*Z*SA2*ZA13*(S_v2)A2)/(603979776*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(53  842355.  *R.A16*SA2*ZA14*(S_v2)A2)/(3221225472*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(201  l.*R.A16.*R.*ZA2*SA2*ZA14*(S_v2)A2)/(4194304*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(981421.*R.A17.*R.*Z*SA2*ZA15*(S_v2)A2)/(603979776*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(19618549477. *R.A18*SA2*ZA16*(S_v2)A2)/(2473901 162496*(1  +  ZA2/4  +  ZA4/64)A4)  +... 

(206775.  *R.A1 8.  *R.*ZA2*SA2*ZA16*(S_v2)A2)/(2147483648*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(607051.*R.A19.*R.*Z*SA2*ZA17*(S_v2)A2)/(1610612736*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
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(94466866  l.*R.A20*SA2*ZA18*(S_v2)A2)/(309237645312*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(108275.*R.A20.*R.*ZA2*SA2*ZA18*(S_v2)A2)/(6442450944*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(4002553.  *R.A21.*R.*Z*SA2*ZA19*(S_v2)A2)/(51539607552*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(3348433219.*R.A22*SA2*ZA20*(S_v2)A2)/(3298534883328*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(512435.*R.A22.*R.*ZA2*SA2*ZA20*(S_v2)A2)/(206158430208*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(5778425. *R.A23.*R.*Z*SA2*ZA21*(S_v2)A2)/(412316860416*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(14846261 11.  *R.A24*SA2*ZA22*(S_v2)A2)/(4947802324992*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(21031.*R.A24.*R.*ZA2*SA2*ZA22*(S_v2)A2)/(68719476736*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

( 1071 8225.  *R.A25.*R.*Z*SA2*ZA23*(S_v2)A2)/(4947802324992*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(33848465467.*R.A26*SA2*ZA24*(S_v2)A2)/(422212465065984*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(272987.  *R.A26.*R.*ZA2*SA2*ZA24*(S_v2)A2)/(8796093022208*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(1 1 158205. *R.A27.*R.*Z*SA2*ZA25*(S_v2)A2)/(39582418599936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(2475004596  l.*R.A28*SA2*ZA26*(S_v2)A2)/(1266637395197952*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(1 1305.*R.A28.*R.*ZA2*SA2*ZA26*(S_v2)A2)/(43980465 1 1 104*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(6450277. *R.A29.*R.*Z*SA2*ZA27*(S_v2)A2)/(21 1 106232532992*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(5906459401  l.*R.A30*SA2*ZA28*(S_v2)A2)/(135107988821 1 1488*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(24225.  *R.A30.*R.*ZA2*SA2*ZA28*(S_v2)A2)/(  14073  7488355328*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(46241 09.  *R.A31.*R.*Z*SA2*ZA29*(S_v2)A2)/(1688849860263936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(36553306561. *R.A32*SA2*ZA30*(S_v2)A2)/(40532396646334464*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(323.*R.A32.*R.*ZA2*SA2*ZA30*(S_v2)A2)/(35184372088832*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(679915.*R.A33.*R.*Z*SA2*ZA31*(S_v2)A2)/(3377699720527872*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(1189947216611. *R.A34*SA2*ZA32*(S_v2)A2)/(6917529027641081856*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(27455.  *R.A34.*R.*ZA2*SA2*ZA32*(S_v2)A2)/(72057594037927936*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(108205.*R.A35.*R.*Z*SA2*ZA33*(S_v2)A2)/(9007199254740992*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(1 0503079278  l.*R.A36*SA2*ZA34*(S_v2)A2)/(3458764513820540928*(l  +  ZA2/4  +  ZA4/64)A4)  + 
(855.*R.A36.*R.*ZA2*SA2*ZA34*(S_v2)A2)/(72057594037927936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(99064 1.  *R.  A37.  *R.*Z*SA2*ZA35*(S_v2)A2)/(  17293  822569 10270464*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(548568674633. *R.A38*SA2*ZA36*(S_v2)A2)/... 

(1 10680464442257309696*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(1 805.  *R.A38.*R.*ZA2*SA2*ZA36*(S_v2)A2)/(69 17529027641 08 1856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(294785.  *R.A39.*R.*Z*SA2*ZA37*(S_v2)A2)/(  13  835058055282 1 637 12*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(10322387501. *R.A40*SA2*ZA38*(S_v2)A2)/... 

(1 3835058055282 163712*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(25.  *R.A40.*R.*ZA2*SA2*ZA38*(S_v2)A2)/(69 17529027641 081 856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(32965.  *R.A41.*R.*Z*SA2*ZA39*(S_v2)A2)/(55340232221128654848*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(1462601471251. *R.A42*SA2*ZA40*(S_v2)A2)/.„ 

(14 16709944860893564 1088*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(7.  *R.A42.*R.*ZA2*SA2*ZA40*(S_v2)A2)/(295 147905 179352825856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

( 1 5635.  *R.  A43.  *R.*Z*SA2*ZA41*(S_v2)A2)/(  1328 1 655733070877 16352*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(185335180013. *R.A44*SA2*ZA42*(S_v2)A2)/„. 

(14 16709944860893564 1088*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(3115.*R.A45.*R.*Z*SA2*ZA43*(S_v2)A2)/(21250649172913403461632*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(2057042720599.  *R.A46*SA2*ZA44*(S_v2)A2)/(  1 36004 1 547066457821 544448*(1  +  ZA2/4  +  ZA4/64)A4) 
+  ... 

(49.*R.A47.*R.*Z*SA2*ZA45*(S_v2)A2)/(56668397794435742564352*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(24026340573. *R.A48*SA2*ZA46*(S_v2)A2)/... 

(1511 1572745 1828646838272*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(5273670271697.*R.A50*SA2*ZA48*(S_v2)A2)/(348170636049013202315378688*(l  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(37823055319.*R.A52*SA2*ZA50*(S_v2)A2)/(29014219670751 100192948224*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(3 1266829573.  *R.A54*SA2*ZA52*(S_v2)A2)/(30948500982 1 34506872478 1056*(1  +  ZA2/4  +  ZA4/64)A4) 
+  ... 

(305764487.*R.A56*SA2*ZA54*(S_v2)A2)/(43521329506126650289422336*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
( 15567 1 821505.  *R.A58*SA2*ZA56*(S_v2)A2 )/(35652673 13 14 1895 19 1709477765 12*(1  +  ZA2/4  + 
ZA4/64)A4)  +... 
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(8605263625. *R.A60*SA2*ZA58*(S_v2)A2)/(356526731314189519170947776512*(l  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(44870 15 167.*R.A62*SA2*ZA60*(S_v2)A2 )/(380295 18006846882044901096 16128*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(64 197 1 3  l.*R.A64*SA2*ZA62*(S_v2)A2)/(  126765060022822940 14967032053  76*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(7366421503. *R.A66*SA2*ZA64*(S_v2)A2)/(3894222643901120721397872246915072*(l  +  ZA2/4  + 
ZA4/64)A4)  +... 

(1 18374655. *R.A68*SA2*ZA66*(S_v2)A2)/(1947111321950560360698936123457536*(l  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

( 10321 7975.  *R.A70*SA2*ZA68*(S_v2)A2)/(623075623024 1793 1 54236595595064 1 152*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(1 169089.  *R.A72*SA2*ZA70*(S_v2)A2)/(3 1 153781 15 120896577 1 1 82977975320576*(  1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(1 64537 1 5.  *R.A74*SA2*ZA72*(S_v2)A2)/(23926 1 03924 1 284857 12268527085046202368*(1  +  ZA2/4  + 
ZA4/64)A4)  +... 

(234365. *R.A76*SA2*ZA74*(S_v2)A2)/(23926103924128485712268527085046202368*(l  +  ZA2/4  + 
ZA4/64)A4)  +  ... 

(77905.*R.A78*SA2*ZA76*(S_v2)A2)/(7656353255721 1 154279259286672 1478475776*(1  +  ZA2/4  + 
ZA4/64)A4)  +  ... 

(175.*R.A80*SA2*ZA78*(S_v2)A2)/(25521 1775 190703  847597530955573  8261 58592*(  1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(49.  *R.A82*SA2*ZA80*(S_v2)A2)/(2 177807 148294006 166 1 655974875633 1 65533 184*(1  +  ZA2/4  + 

ZA4/64)A4); 


Ns2=Nf2+Nc+Nr2; 

Phi2=Nf2./[Nc+Nr2]; 

Be2=l./[1+Phi2]; 

Gf2=Nf2./Ns2; 

Gr2=[Nr2]./Ns2; 

Nh2=Nc+Nr2; 


A2/4 


S_v3=8; 

Nf3=Br*[(ZA2).*exp(-2.*R.*Z)+(ZA2)*exp(-2*Z)-2*ZA2.*exp(-Z-R.*Z)]; 
Nr3=(R.A2*SA2)/4  +  (25.*R.A2*SA2*(S_v3))/(384*(l  +  Z 

(R.A2.*R.*ZA2*SA2*(S_v3))/(4*(l  +  ZA2/4  +  ZA4/64)A2)  -... 
(43.*R.A4*SA2*ZA2*(S_v3))/(384*(l  +  ZA2/4  +  ZA4/64)A2)... 

+  (5.*R.A5.*R.*Z*SA2*ZA3*(S_v3))/(32*(l  +  ZA2/4 

(407.*R.A6*SA2*ZA4*(S_v3))/(4096*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(7.*R  A7.*R.*Z*SA2*ZA5*(S_v3))/(768*(l  +  ZA2/4 

(539.*R.A8*SA2*ZA6*(S_v3))/(4096*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(85225.  *R.A10*SA2*ZA8*(S_v3))/(1572864*(l  +  ZA2/4 

(6487.*R.A12*SA2*ZA10*(S_v3))/(393216*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 
(17773.*R.A14*SA2*ZA12*(S_v3))/(4194304*(l  +  ZA2/4 

(201  l.*R.A16*SA2*ZA14*(S_v3))/(2097152*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(206775.  *R.  A18*SA2*ZA16*(S_v3))/(  1073  74 1824*(1  +  ZA2/4 

(1 08275.  *R.A20*SA2*ZA18*(S_v3))/(3221225472*(l  +  ZA2/4  +  ZA4/64)A2) 
(512435.*R.A22*SA2*ZA20*(S_v3))/(103079215104*(l  +  ZA2/4 

(21031.*R  A24*SA2*ZA22*(S_v3))/(34359738368*(l  +  ZA2/4  +  ZA4/64)A2) 
(272987.*R.A26*SA2*ZA24*(S_v3))/(439804651 1 104*(1  +  ZA2/4 

(1 1305.*R.A28*SA2*ZA26*(S_v3))/(2199023255552*(l  +  ZA2/4  +  ZA4/64)A 
(24225.  *R.A30*SA2*ZA28*(S_v3))/(70368744177664*(l  +  ZA2/4 

(323.  *R.A32*SA2*ZA30*(S_v3))/(  175921 860444 16*(1  +  ZA2/4  +  ZA4/64)A2 
(27455.*R.A34*SA2*ZA32*(S_v3))/(36028797018963968*(l  +  ZA1 

(855.*R.A36*SA2*ZA34*(S_v3))/(36028797018963968*(l  +  ZA2/4  +  ZA4/64)A2)  +  .. 


ZA4/64)A2)+ 


ZA4/64)A2)+ 


+ 

ZA4/64)A2) 

+ 

+ 

ZA4/64)A2) 

+ 

+ 

ZA4/64)A2) 

+ 

+ 

ZA4/64)A2) 

+ 

+... 

+ 

ZA4/64)A2) 

+ 

+... 

1  + 

ZA4/64)A2) 

+ 

'2)  +  ... 

1  + 

ZA4/64)A2) 

+ 

:)  +  ... 

1/4  + 

ZA4/64)A2) 

+ 
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(1805.*R.A38*SA2*ZA36*(S_v3))/(3458764513820540928*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(25.*R.A40*SA2*ZA38*(S_v3))/(3458764513820540928*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(7.  *R.A42*SA2*ZA40*(S_v3))/(  1475739525896764 12928*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(625.*R.A2*SA2*(S_v3)A2)/(147456*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(25.*R.A2.*R.*ZA2*SA2*(S_v3)A2)/(768*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(R  A2.*R.*ZA4*SA2*(S_v3)A2)/(16*(l  +  ZA2/4  +  ZA4/64)A4)  -  ... 

(1075.*R.A4*SA2*ZA2*(S_v3)A2)/(73728*(l  +  ZA2/4  +  ZA4/64)A4) 

(43.*R.A4.*R.*ZA2*SA2*ZA2*(S_v3)A2)/(768*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(125.*R.A5.*R.*Z*SA2*ZA3*(S_v3)A2)/(6144*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(5.*R.A5.*R.*ZA3*SA2*ZA3*(S_v3)A2)/(64*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(60109.*R.A6*SA2*ZA4*(S_v3)A2)/(2359296*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(407.*R  A6.*R.*ZA2*SA2*ZA4*(S_v3)A2)/(8192*(l  +  ZA2/4  +  ZA4/64)A4)  -  ... 

(4985.*R.A7.*R.*Z*SA2*ZA5*(S_v3)A2)/(147456*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(7.*R.A7.*R.*ZA3*SA2*ZA5*(S_v3)A2)/(1536*(l  +  ZA2/4  +  ZA4/64)A4)  - ... 

(671.*R.A8*SA2*ZA6*(S_v3)A2)/(131072*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(739.*R.A8.*R.*ZA2*SA2*ZA6*(S_v3)A2)/(8192*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(171  ll.*R.A9.*R.*Z*SA2*ZA7*(S_v3)A2)/(589824*(l  +  ZA2/4  +  ZA4/64)A4) 

(3787661. *R.A10*SA2*ZA8*(S_v3)A2)/(301989888*(l  +  ZA2/4  +  ZA4/64)A4)  +... 

(31395.*R.A10.*R.*ZA2*SA2*ZA8*(S_v3)A2)/(1048576*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(67529.  *R.All.*R.*Z*SA2*ZA9*(S_v3)A2)/(1572864*(l  +  ZA2/4  +  ZA4/64)A4)  +... 

(1627151. *R.A12*SA2*ZA10*(S_v3)A2)/(100663296*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(19657.*R.A12.*R.*ZA2*SA2*ZA10*(S_v3)A2)/(2359296*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(486493.  *R.A1 3.  *R.  *Z*SA2*ZA1  l*(S_v3)A2)/(25165824*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(24 1 027273.  *R.A14*SA2*ZA12*(S_v3)A2)/(9663676416*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(17773.*R.A14.*R.*ZA2*SA2*ZA12*(S_v3)A2)/(8388608*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(3710335.*R.A15.*R.*Z*SA2*ZA13*(S_v3)A2)/(603979776*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(53  842355.  *R.A16*SA2*ZA14*(S_v3)A2)/(3221225472*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(20 1 1  .*R.A 1 6.  *R.  *ZA2*SA2*ZA  1 4*(S_v3)A2)/(4 1 94304*(  1  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(981421,*R.A17.*R.*Z*SA2*ZA15*(S_v3)A2)/(603979776*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(19618549477. *R.A18*SA2*ZA16*(S_v3)A2)/(2473901 162496*(1  +  ZA2/4  +  ZA4/64)A4)  +... 

(206775.  *R.A1 8.  *R.*ZA2*SA2*ZA16*(S_v3)A2)/(2147483648*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(607051,*R.A19.*R.*Z*SA2*ZA17*(S_v3)A2)/(1610612736*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(94466866  l.*R.A20*SA2*ZA18*(S_v3)A2)/(309237645312*(l  +  ZA2/4  +  ZA4/64)A4)  + 

( 108275.  *R.A20.*R.*ZA2*SA2*ZA18*(S_v3)A2)/(6442450944*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(4002553.  *R.A21.*R.*Z*SA2*ZA19*(S_v3)A2)/(51539607552*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(3348433219.*R  A22*SA2*ZA20*(S_v3)A2)/(3298534883328*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(512435.*R.A22.*R.*ZA2*SA2*ZA20*(S_v3)A2)/(206158430208*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(5778425. *R.A23.*R.*Z*SA2*ZA21*(S_v3)A2)/(412316860416*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(14846261 11.  *R.A24*SA2*ZA22*(S_v3)A2)/(4947802324992*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(21031.*R.A24.*R.*ZA2*SA2*ZA22*(S_v3)A2)/(68719476736*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

( 107 1 8225.  *R.A25.*R.*Z*SA2*ZA23*(S_v3)A2)/(4947802324992*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(33848465467.*R.A26*SA2*ZA24*(S_v3)A2)/(422212465065984*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(272987.*R.A26.*R.*ZA2*SA2*ZA24*(S_v3)A2)/(8796093022208*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(11158205. *R.A27.*R.*Z*SA2*ZA25*(S_v3)A2)/(39582418599936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(24750045961/ *R  A28*SA2*ZA26*(S_v3)A2)/(1266637395197952*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(11305.*R.A28.*R.*ZA2*SA2*ZA26*(S_v3)A2)/(439804651 1 104*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(6450277. *R.A29.*R.*Z*SA2*ZA27*(S_v3)A2)/(21 1 106232532992*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(5906459401  l.*R.A30*SA2*ZA28*(S_v3)A2)/(135107988821 1 1488*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(24225.  *R.A30.*R.*ZA2*SA2*ZA28*(S_v3)A2)/(  14073  7488355328*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(46241 09.  *R.A31.*R.*Z*SA2*ZA29*(S_v3)A2)/(1688849860263936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(36553306561. *R.A32*SA2*ZA30*(S_v3)A2)/(40532396646334464*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(323.*R.A32.*R.*ZA2*SA2*ZA30*(S_v3)A2)/(35184372088832*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(679915.*R.A33.*R.*Z*SA2*ZA31*(S_v3)A2)/(3377699720527872*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(1189947216611. *R.A34*SA2*ZA32*(S_v3)A2)/(6917529027641081856*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(27455.  *R.A34.*R.*ZA2*SA2*ZA32*(S_v3)A2)/(72057594037927936*(l  +  ZA2/4  +  ZA4/64)A4)  + 

( 108205.  *R.A35.*R.*Z*SA2*ZA33*(S_v3)A2)/(9007199254740992*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
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(105030792781. *R.A36*SA2*ZA34*(S_v3)A2)/(3458764513820540928*(l  +  ZA2/4  +  ZA4/64)A4)  + 
(855.*R.A36.*R.*ZA2*SA2*ZA34*(S_v3)A2)/(72057594037927936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(99064 1.  *R.  A37.  *R.*Z*SA2*ZA35*(S_v3)A2)/(  1 7293822569 10270464*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(548568674633. *R.A38*SA2*ZA36*(S_v3)A2)/... 

(1 10680464442257309696*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(1 805.  *R.A38.*R.*ZA2*SA2*ZA36*(S_v3)A2)/(69 17529027641 08 1856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(294785.  *R.A39.*R.*Z*SA2*ZA37*(S_v3)A2)/(  13  835058055282 1 637 12*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(10322387501. *R.A40*SA2*ZA38*(S_v3)A2)/... 

(13  835058055282 163712*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(25.  *R.A40.*R.*ZA2*SA2*ZA38*(S_v3)A2)/(69 17529027641 081 856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(32965.  *R.A41.*R.*Z*SA2*ZA39*(S_v3)A2)/(55340232221128654848*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(1 46260 147 125  l.*R.A42*SA2*ZA40*(S_v3)A2)/... 

(141 6709944860893564 1088*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(7.  *R.A42.*R.*ZA2*SA2*ZA40*(S_v3)A2)/(295 147905 179352825856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

( 1 5635.  *R.  A43.  *R.*Z*SA2*ZA41*(S_v3)A2)/(  1328 1 655733070877 16352*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(185335180013. *R.A44*SA2*ZA42*(S_v3)A2)/... 

(14 16709944860893564 1088*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(3115.*R.A45.*R.*Z*SA2*ZA43*(S_v3)A2)/(21250649172913403461632*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(2057042720599.  *R.A46*SA2*ZA44*(S_v3)A2)/(  1 36004 1 547066457821 544448*(1  +  ZA2/4  +  ZA4/64)A4) 
+  ... 

(49.*R.A47.*R.*Z*SA2*ZA45*(S_v3)A2)/(56668397794435742564352*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(24026340573. *R.A48*SA2*ZA46*(S_v3)A2)/... 

(1511 1572745 1828646838272*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(5273670271697.*R.A50*SA2*ZA48*(S_v3)A2)/(348170636049013202315378688*(l  +  ZA2/4  + 
ZA4/64)A4)  +  ... 

(37823055319.*R.A52*SA2*ZA50*(S_v3)A2)/(29014219670751 100192948224*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(3 1266829573.  *R.A54*SA2*ZA52*(S_v3)A2)/(30948500982 1 34506872478 1056*(1  +  ZA2/4  +  ZA4/64)A4) 
+  ... 

(305764487.*R.A56*SA2*ZA54*(S_v3)A2)/(43521329506126650289422336*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(15567 1 821505.  *R.A58*SA2*ZA56*(S_v3  )A2)/(35652673 13 14 1895 19 1709477765 12*(1  +  ZA2/4  + 
ZA4/64)A4)  +... 

(8605263625.*R.A60*SA2*ZA58*(S_v3)A2)/(35652673 13 14 1895 19 1709477765 12*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(44870 15 167.*R.A62*SA2*ZA60*(S_v3  )A2)/(380295 18006846882044901096 16128*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(64 197 1 3  l.*R.A64*SA2*ZA62*(S_v3)A2)/(  126765060022822940 1 4967032053  76*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(7366421503. *R.A66*SA2*ZA64*(S_v3)A2)/(3894222643901120721397872246915072*(l  +  ZA2/4  + 
ZA4/64)A4)  +... 

(1 18374655. *R.A68*SA2*ZA66*(S_v3)A2)/(1947111321950560360698936123457536*(l  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

( 10321 7975.  *R.A70*SA2*ZA68*(S_v3)A2)/(623075623024 1793 1 54236595595064 1 152*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(1 169089.  *R.A72*SA2*ZA70*(S_v3)A2)/(31 15378 115 1208965771 182977975320576*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

( 16453  71 5.  *R.A74*SA2*ZA72*(S_v3)A2)/(23926 1 03924 1 284857 12268527085046202368*(1  +  ZA2/4  + 
ZA4/64)A4)  +... 

(234365. *R.A76*SA2*ZA74*(S_v3)A2)/(23926103924128485712268527085046202368*(l  +  ZA2/4  + 
ZA4/64)A4)  +  ... 

(77905.*R.A78*SA2*ZA76*(S_v3)A2)/(7656353255721 1 154279259286672 1478475776*(1  +  ZA2/4  + 
ZA4/64)A4)  +  ... 

(175.*R.A80*SA2*ZA78*(S_v3)A2)/(25521 1775 190703  847597530955573826 158592*(  1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(49.  *R.A82*SA2*ZA80*(S_v3)A2)/(2 177807 148294006 166 1 655974875633 1 65533 184*(1  +  ZA2/4  + 

ZA4/64)A4); 
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Ns3=Nf3+Nc+Nr3; 

Phi3=Nf3./[Nc+Nr3]; 

Be3=l./[1+Phi3]; 

Gf3=NG./Ns3; 

Gr3=[Nr3]./Ns3; 

Nh3=Nc+Nr3; 


S_v4=12; 

Nf4=Br*[(ZA2).*exp(-2.*R.*Z)+(ZA2)*exp(-2*Z)-2*ZA2.*exp(-Z-R.*Z)]; 

Nr4=(R.A2*SA2)/4  +  (25.*R.A2*SA2*(S_v4))/(384*(l  +  ZA2/4  +  ZA4/64)A2)+ 

(R.A2.*R.*ZA2*SA2*(S_v4))/(4*(l  +  ZA2/4  +  ZA4/64)A2) 

(43.*R.A4*SA2*ZA2*(S_v4))/(384*(l  +  ZA2/4  +  ZA4/64)A2)... 

+  (5.*R.A5.*R.*Z*SA2*ZA3*(S_v4))/(32*(l  +  ZA2/4  +  ZA4/64)A2)+ 

(407.*R  A6*SA2*ZA4*(S_v4))/(4096*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(7.*R.A7.*R.*Z*SA2*ZA5*(S_v4))/(768*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(539.*R.A8*SA2*ZA6*(S_v4))/(4096*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(85225.  *R.A10*SA2*ZA8*(S_v4))/(1572864*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(6487.*R.A12*SA2*ZA10*(S_v4))/(393216*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(17773.*R.A14*SA2*ZA12*(S_v4))/(4194304*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(201  l.*R.A16*SA2*ZA14*(S_v4))/(2097152*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(206775.  *R.A18*SA2*ZA16*(S_v4))/(  1073  74 1824*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(108275. *R.A20*SA2*ZA18*(S_v4))/(3221225472*(l  +  ZA2/4  +  ZA4/64)A2)  +... 

(512435.*R.A22*SA2*ZA20*(S_v4))/(103079215104*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(21031.*R.A24*SA2*ZA22*(S_v4))/(34359738368*(l  +  ZA2/4  +  ZA4/64)A2)  +... 

(272987.*R.A26*SA2*ZA24*(S_v4))/(439804651 1 104*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(1 1305.*R.A28*SA2*ZA26*(S_v4))/(2199023255552*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(24225.  *R.A30*SA2*ZA28*(S_v4))/(70368744177664*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(323.  *R.A32*SA2*ZA30*(S_v4))/(  175921 860444 16*(1  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(27455.  *R.A34*SA2*ZA32*(S_v4))/(36028797018963968*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(855.*R.A36*SA2*ZA34*(S_v4))/(36028797018963968*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 
(1805.*R.A38*SA2*ZA36*(S_v4))/(3458764513820540928*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(25.*R.A40*SA2*ZA38*(S_v4))/(3458764513820540928*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(7.  *R.A42*SA2*ZA40*(S_v4))/(  1475739525896764 12928*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(625.*R.A2*SA2*(S_v4)A2)/(147456*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(25.*R.A2.*R.*ZA2*SA2*(S_v4)A2)/(768*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(R. A2 . *R. *Z A4 * S A2 *( S_v4 ) A2)/(  1 6 * ( 1  +  ZA2/4  +  ZA4/64)A4)  - ... 

(1075.*R.A4*SA2*ZA2*(S_v4)A2)/(73728*(l  +  ZA2/4  +  ZA4/64)A4) 

(43.*R.A4.*R.*ZA2*SA2*ZA2*(S_v4)A2)/(768*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(125.*R.A5.*R.*Z*SA2*ZA3*(S_v4)A2)/(6144*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(5.*R.A5.*R.*ZA3*SA2*ZA3*(S_v4)A2)/(64*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(60109.*R.A6*SA2*ZA4*(S_v4)A2)/(2359296*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(407.*R.A6.*R.*ZA2*SA2*ZA4*(S_v4)A2)/(8192*(l  +  ZA2/4  +  ZA4/64)A4)  -  ... 

(4985.*R.A7.*R.*Z*SA2*ZA5*(S_v4)A2)/(147456*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(7.*R.A7.*R.*ZA3*SA2*ZA5*(S_v4)A2)/(1536*(l  +  ZA2/4  +  ZA4/64)A4)  -  ... 

(671.*R.A8*SA2*ZA6*(S_v4)A2)/(131072*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(739.*R.A8.*R.*ZA2*SA2*ZA6*(S_v4)A2)/(8192*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(17111.*R.A9.*R.*Z*SA2*ZA7*(S_v4)A2)/(589824*(l  +  ZA2/4  +  ZA4/64)A4) 

(3787661. *R.A10*SA2*ZA8*(S_v4)A2)/(301989888*(l  +  ZA2/4  +  ZA4/64)A4)  +... 

(31395.*R.A10.*R.*ZA2*SA2*ZA8*(S_v4)A2)/(1048576*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(67529.  *R.All.*R.*Z*SA2*ZA9*(S_v4)A2)/(1572864*(l  +  ZA2/4  +  ZA4/64)A4)  +... 
(1627151.*R.A12*SA2*ZA10*(S_v4)A2)/(100663296*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(19657.*R.A12.*R.*ZA2*SA2*ZA10*(S_v4)A2)/(2359296*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(486493.  *R.A1 3.  *R.  *Z*SA2*ZA1  l*(S_v4)A2)/(25165824*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(24 1 027273.  *R.A14*SA2*ZA12*(S_v4)A2)/(9663676416*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
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(17773.*R.A14.*R.*ZA2*SA2*ZA12*(S_v4)A2)/(8388608*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(3710335.*R.A15.*R.*Z*SA2*ZA13*(S_v4)A2)/(603979776*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(53  842355.  *R.A16*SA2*ZA14*(S_v4)A2)/(3221225472*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(201  l.*R.A16.*R.*ZA2*SA2*ZA14*(S_v4)A2)/(4194304*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(981421,*R.A17.*R.*Z*SA2*ZA15*(S_v4)A2)/(603979776*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(19618549477. *R.A18*SA2*ZA16*(S_v4)A2)/(2473901 162496*(1  +  ZA2/4  +  ZA4/64)A4)  +... 

(206775.  *R.A1 8.  *R.*ZA2*SA2*ZA16*(S_v4)A2)/(2147483648*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(607051.*R.A19.*R.*Z*SA2*ZA17*(S_v4)A2)/(1610612736*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(94466866  l.*R.A20*SA2*ZA18*(S_v4)A2)/(309237645312*(l  +  ZA2/4  +  ZA4/64)A4)  + 

( 108275.  *R.A20.*R.*ZA2*SA2*ZA18*(S_v4)A2)/(6442450944*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(4002553.  *R.A21.*R.*Z*SA2*ZA19*(S_v4)A2)/(51539607552*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(3348433219.*R  A22*SA2*ZA20*(S_v4)A2)/(3298534883328*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(512435.*R.A22.*R.*ZA2*SA2*ZA20*(S_v4)A2)/(206158430208*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(5778425. *R.A23.*R.*Z*SA2*ZA21*(S_v4)A2)/(412316860416*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(14846261 11.  *R.A24*SA2*ZA22*(S_v4)A2)/(4947802324992*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(21031.*R.A24.*R.*ZA2*SA2*ZA22*(S_v4)A2)/(68719476736*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

( 1071 8225.  *R.A25.*R.*Z*SA2*ZA23*(S_v4)A2)/(4947802324992*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(33848465467.*R.A26*SA2*ZA24*(S_v4)A2)/(422212465065984*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(272987.*R.A26.*R.*ZA2*SA2*ZA24*(S_v4)A2)/(8796093022208*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(11158205. *R.A27.*R.*Z*SA2*ZA25*(S_v4)A2)/(39582418599936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(24750045961. *R.A28*SA2*ZA26*(S_v4)A2)/(1266637395197952*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(11305.*R.A28.*R.*ZA2*SA2*ZA26*(S_v4)A2)/(439804651 1 104*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(6450277. *R.A29.*R.*Z*SA2*ZA27*(S_v4)A2)/(21 1 106232532992*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(5906459401  l.*R.A30*SA2*ZA28*(S_v4)A2)/(135107988821 1 1488*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(24225.  *R.A30.*R.*ZA2*SA2*ZA28*(S_v4)A2)/(  14073  7488355328*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(46241 09.  *R.A31.*R.*Z*SA2*ZA29*(S_v4)A2)/(1688849860263936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(36553306561. *R.A32*SA2*ZA30*(S_v4)A2)/(40532396646334464*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(323.*R.A32.*R.*ZA2*SA2*ZA30*(S_v4)A2)/(35184372088832*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(679915.*R.A33.*R.*Z*SA2*ZA31*(S_v4)A2)/(3377699720527872*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(1189947216611. *R.A34*SA2*ZA32*(S_v4)A2)/(6917529027641081856*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(27455.  *R.A34.*R.*ZA2*SA2*ZA32*(S_v4)A2)/(72057594037927936*(l  +  ZA2/4  +  ZA4/64)A4)  + 

( 108205.  *R.A35.*R.*Z*SA2*ZA33*(S_v4)A2)/(9007199254740992*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

( 10503079278  l.*R.A36*SA2*ZA34*(S_v4)A2)/(3458764513820540928*(l  +  ZA2/4  +  ZA4/64)A4)  + 
(855.*R.A36.*R.*ZA2*SA2*ZA34*(S_v4)A2)/(72057594037927936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(99064 1.  *R.  A37.  *R.*Z*SA2*ZA35*(S_v4)A2)/(  17293  822569 10270464*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(548568674633. *R.A38*SA2*ZA36*(S_v4)A2)/... 

(1 10680464442257309696*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(1 805.  *R.A3  8.  *R.*ZA2*SA2*ZA36*(S_v4)A2)/(69 1752902764 1081 856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(294785.  *R.A39.*R.*Z*SA2*ZA37*(S_v4)A2)/(  13  835058055282 163  7 12*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(10322387501. *R.A40*SA2*ZA38*(S_v4)A2)/... 

(13  8350580552821 63  712*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(25.  *R.A40.*R.*ZA2*SA2*ZA3  8*(S_v4)A2 )/(691 752902764 1 08 1856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(32965.  *R.A41.*R.*Z*SA2*ZA39*(S_v4)A2)/(55340232221128654848*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(1462601471251. *R.A42*SA2*ZA40*(S_v4)A2)/... 

(14 16709944860893564 1088*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(7.  *R.A42.*R.*ZA2*SA2*ZA40*(S_v4)A2)/(295 147905 179352825856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

( 1 5635.  *R.  A43.  *R.*Z*SA2*ZA41*(S_v4)A2)/(  1328 1 655733070877 16352*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(185335180013. *R.A44*SA2*ZA42*(S_v4)A2)/.„ 

(141 6709944860893564 1088*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(31 15.*R.A45.*R.*Z*SA2*ZA43*(S_v4)A2)/(21250649172913403461632*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(2057042720599.  *R.A46*SA2*ZA44*(S_v4)A2)/(l  36004 1 547066457821 544448*(1  +  ZA2/4  +  ZA4/64)A4) 
+  ... 

(49.*R.A47.*R.*Z*SA2*ZA45*(S_v4)A2)/(56668397794435742564352*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(24026340573. *R.A48*SA2*ZA46*(S_v4)A2)/... 
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(1511 1572745 1828646838272*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(5273670271697.*R.A50*SA2*ZA48*(S_v4)A2)/(348170636049013202315378688*(l  +  ZA2/4  + 
ZA4/64)A4)  +  ... 

(37823055319.*R.A52*SA2*ZA50*(S_v4)A2)/(29014219670751 100192948224*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(3 1266829573.  *R.A54*SA2*ZA52*(S_v4)A2)/(309485009821 34506872478 1056*(1  +  ZA2/4  +  ZA4/64)A4) 
+  ... 

(305764487.*R.A56*SA2*ZA54*(S_v4)A2)/(43521329506126650289422336*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
( 15567 1 821505.  *R.A58*SA2*ZA56*(S_v4)A2 )/(35652673 13 14 1895 19 1709477765 12*(1  +  ZA2/4  + 
ZA4/64)A4)  +... 

(8605263625.*R.A60*SA2*ZA58*(S_v4)A2)/(35652673 13 14 1895 19 1709477765 12*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(44870 15 167.*R.A62*SA2*ZA60*(S_v4)A2 )/(380295 18006846882044901096 16128*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(64 197 1 3  l.*R.A64*SA2*ZA62*(S_v4)A2)/(  126765060022822940 1 4967032053  76*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(7366421503. *R.A66*SA2*ZA64*(S_v4)A2)/(3894222643901120721397872246915072*(l  +  ZA2/4  + 
ZA4/64)A4)  +... 

(1 18374655. *R.A68*SA2*ZA66*(S_v4)A2)/(1947111321950560360698936123457536*(l  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

( 10321 7975.  *R.A70*SA2*ZA68*(S_v4)A2)/(623075623024 1793 1 54236595595064 1 152*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(1 169089.  *R.A72*SA2*ZA70*(S_v4)A2)/(3 1 153781 15 120896577 1 1 82977975320576*(  1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

( 1 64537 1 5.  *R.A74*SA2*ZA72*(S_v4)A2)/(23926 1 03924 1 284857 12268527085046202368*(1  +  ZA2/4  + 
ZA4/64)A4)  +... 

(234365. *R.A76*SA2*ZA74*(S_v4)A2)/(23926103924128485712268527085046202368*(l  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(77905.*R.A78*SA2*ZA76*(S_v4)A2)/(7656353255721 1 154279259286672 1478475776*(1  +  ZA2/4  + 
ZA4/64)A4)  +  ... 

(175.*R.A80*SA2*ZA78*(S_v4)A2)/(25521 1775 190703  847597530955573826 158592*(  1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(49.  *R.A82*SA2*ZA80*(S_v4)A2)/(2 177807 148294006 166 1 655974875633 1 65533 184*(1  +  ZA2/4  + 

ZA4/64)A4); 


Ns4=Nf4+Nc+Nr4; 

Phi4=Nf4./[Nc+Nr4]; 

Be4= 1 ./[  1  +Phi4] ; 

Gf4=Nf4./Ns4; 

Gr4=[Nr4]./Ns4; 

Nh4=Nc+Nr4; 


S_v5=16; 

Nf5=Br*[(ZA2).*exp(-2.*R.*Z)+(ZA2)*exp(-2*Z)-2*ZA2.*exp(-Z-R.*Z)]; 
Nr5=(R.A2*SA2)/4  +  (25.*R.A2*SA2*(S_v5))/(384*(l  +  ZA2/4 

(R.A2.*R.*ZA2*SA2*(S_v5))/(4*(l  +  ZA2/4  +  ZA4/64)A2)  -... 
(43.*R.A4*SA2*ZA2*(S_v5))/(384*(l  +  ZA2/4  +  ZA4/64)A2)... 

+  (5.*R.A5.*R.*Z*SA2*ZA3*(S_v5))/(32*(l  +  ZA2/4 

(407.*R.A6*SA2*ZA4*(S_v5))/(4096*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 
(7.*R.A7.*R.*Z*SA2*ZA5*(S_v5))/(768*(l  +  ZA2/4  + 

(539.*R.A8*SA2*ZA6*(S_v5))/(4096*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(85225.  *R.A10*SA2*ZA8*(S_v5))/(1572864*(l  +  ZA2/4  + 

(6487.*R.A12*SA2*ZA10*(S_v5))/(393216*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 
(17773.*R.A14*SA2*ZA12*(S_v5))/(4194304*(l  +  ZA2/4  + 

(201  l.*R.A16*SA2*ZA14*(S_v5))/(2097152*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 


+  ZA4/64)A2)+ 

+  ZA4/64)A2)+ 

ZA4/64)A2)  + 

ZA4/64)A2)  + 

ZA4/64)A2)  + 
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(206775.  *R.  A1 8*SA2*ZA1 6*(S_v5))/(  1073  74 1824*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(108275. *R.A20*SA2*ZA18*(S_v5))/(3221225472*(l  +  ZA2/4  +  ZA4/64)A2)  +... 

(512435. *R.A22*SA2*ZA20*(S_v5))/(103079215104*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(21031.*R.A24*SA2*ZA22*(S_v5))/(34359738368*(l  +  ZA2/4  +  ZA4/64)A2)  +... 

(272987. *R.A26*SA2*ZA24*(S_v5))/(439804651 1 104*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(1 1305. *R  A28*SA2*ZA26*(S_v5))/(2199023255552*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(24225.  *R.A30*SA2*ZA28*(S_v5))/(70368744177664*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(323.  *R.A32*SA2*ZA30*(S_v5))/(  175921 860444 16*(1  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(27455.  *R.A34*SA2*ZA32*(S_v5))/(36028797018963968*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(855.*R.A36*SA2*ZA34*(S_v5))/(36028797018963968*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 
(1805.*R.A38*SA2*ZA36*(S_v5))/(3458764513820540928*(l  +  ZA2/4  +  ZA4/64)A2)  + 

(25.*R.A40*SA2*ZA38*(S_v5))/(3458764513820540928*(l  +  ZA2/4  +  ZA4/64)A2)  +  ... 

(7.  *R.A42*SA2*ZA40*(S_v5))/(  1 475739525896764 12928*(1  +  ZA2/4  +  ZA4/64)A2)  + 

(625.*R.A2*SA2*(S_v5)A2)/(147456*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(25.*R.A2.*R.*ZA2*SA2*(S_v5)A2)/(768*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(R  A2.*R.*ZA4*SA2*(S_v5)A2)/(16*(l  +  ZA2/4  +  ZA4/64)A4)  -  ... 

(1075.*R.A4*SA2*ZA2*(S_v5)A2)/(73728*(l  +  ZA2/4  +  ZA4/64)A4) 

(43.*R.A4.*R.*ZA2*SA2*ZA2*(S_v5)A2)/(768*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(125.*R.A5.*R.*Z*SA2*ZA3*(S_v5)A2)/(6144*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(5.*R.A5.*R.*ZA3*SA2*ZA3*(S_v5)A2)/(64*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(60109.*R.A6*SA2*ZA4*(S_v5)A2)/(2359296*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(407.*R.A6.*R.*ZA2*SA2*ZA4*(S_v5)A2)/(8192*(l  +  ZA2/4  +  ZA4/64)A4)  -  ... 

(4985.*R.A7.*R.*Z*SA2*ZA5*(S_v5)A2)/(147456*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(7.*R.A7.*R.*ZA3*SA2*ZA5*(S_v5)A2)/(1536*(l  +  ZA2/4  +  ZA4/64)A4)  - ... 

(671.*R.A8*SA2*ZA6*(S_v5)A2)/(131072*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(739.*R  A8.*R.*ZA2*SA2*ZA6*(S_v5)A2)/(8192*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(171  ll.*R.A9.*R.*Z*SA2*ZA7*(S_v5)A2)/(589824*(l  +  ZA2/4  +  ZA4/64)A4) 

(3787661. *R.A10*SA2*ZA8*(S_v5)A2)/(301989888*(l  +  ZA2/4  +  ZA4/64)A4)  +... 

(31395.*R  A10.*R.*ZA2*SA2*ZA8*(S_v5)A2)/(1048576*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(67529.*R  All.*R.*Z*SA2*ZA9*(S_v5)A2)/(1572864*(l  +  ZA2/4  +  ZA4/64)A4)  +... 

(1627151. *R.A12*SA2*ZA10*(S_v5)A2)/(100663296*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(19657.*R  A12.*R.*ZA2*SA2*ZA10*(S_v5)A2)/(2359296*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(486493.  *R.A1 3.  *R.  *Z*SA2*ZA1  l*(S_v5)A2)/(25165824*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(24 1 027273.  *R.A14*SA2*ZA12*(S_v5)A2)/(9663676416*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(17773.*R  A14.*R.*ZA2*SA2*ZA12*(S_v5)A2)/(8388608*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(3710335.*R  A15.*R.*Z*SA2*ZA13*(S_v5)A2)/(603979776*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(53  842355.  *R.A16*SA2*ZA14*(S_v5)A2)/(3221225472*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(201  l.*R.A16.*R.*ZA2*SA2*ZA14*(S_v5)A2)/(4194304*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(981421,*R.A17.*R.*Z*SA2*ZA15*(S_v5)A2)/(603979776*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(19618549477.*R.A18*SA2*ZA16*(S_v5)A2)/(2473901 162496*(1  +  ZA2/4  +  ZA4/64)A4)  +... 

(206775.  *R.A1 8.  *R.*ZA2*SA2*ZA16*(S_v5)A2)/(2147483648*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(607051.*R.A19.*R.*Z*SA2*ZA17*(S_v5)A2)/(1610612736*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(94466866  l.*R.A20*SA2*ZA18*(S_v5)A2)/(309237645312*(l  +  ZA2/4  +  ZA4/64)A4)  + 

( 108275.  *R.A20.*R.*ZA2*SA2*ZA18*(S_v5)A2)/(6442450944*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(4002553.  *R.A21.*R.*Z*SA2*ZA19*(S_v5)A2)/(51539607552*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(3348433219.*R  A22*SA2*ZA20*(S_v5)A2)/(3298534883328*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(512435.*R.A22.*R.*ZA2*SA2*ZA20*(S_v5)A2)/(206158430208*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(5778425. *R.A23.*R.*Z*SA2*ZA21*(S_v5)A2)/(412316860416*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(14846261 11.  *R.A24*SA2*ZA22*(S_v5)A2)/(4947802324992*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(21031.*R.A24.*R.*ZA2*SA2*ZA22*(S_v5)A2)/(68719476736*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

( 1071 8225.  *R.A25.*R.*Z*SA2*ZA23*(S_v5)A2)/(4947802324992*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(33848465467.*R.A26*SA2*ZA24*(S_v5)A2)/(422212465065984*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(272987.  *R.A26.*R.*ZA2*SA2*ZA24*(S_v5)A2)/(8796093022208*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(11158205. *R.A27.*R.*Z*SA2*ZA25*(S_v5)A2)/(39582418599936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(24750045961. *R.A28*SA2*ZA26*(S_v5)A2)/(1266637395197952*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(11305.*R.A28.*R.*ZA2*SA2*ZA26*(S_v5)A2)/(439804651 1 104*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 
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(6450277. *R.A29. *R.*Z*SA2*ZA27*(S_v5)A2)/(21 1 106232532992*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(5906459401  l.*R.A30*SA2*ZA28*(S_v5)A2)/(135107988821 1 1488*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(24225.  *R.A30.*R.*ZA2*SA2*ZA28*(S_v5)A2)/(  14073  7488355328*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(46241 09.  *R.A31.*R.*Z*SA2*ZA29*(S_v5)A2)/(1688849860263936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(36553306561. *R.A32*SA2*ZA30*(S_v5)A2)/(40532396646334464*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(323.*R.A32.*R.*ZA2*SA2*ZA30*(S_v5)A2)/(35184372088832*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(679915.*R.A33.*R.*Z*SA2*ZA31*(S_v5)A2)/(3377699720527872*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(1189947216611. *R.A34*SA2*ZA32*(S_v5)A2)/(6917529027641081856*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(27455.  *R.A34.*R.*ZA2*SA2*ZA32*(S_v5)A2)/(72057594037927936*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(108205.*R.A35.*R.*Z*SA2*ZA33*(S_v5)A2)/(9007199254740992*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(1 0503079278  l.*R.A36*SA2*ZA34*(S_v5)A2)/(3458764513820540928*(l  +  ZA2/4  +  ZA4/64)A4)  + 
(855.*R  A36.*R.*ZA2*SA2*ZA34*(S_v5)A2)/(72057594037927936*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(99064 1.  *R.  A37.  *R.*Z*SA2*ZA35*(S_v5)A2)/(  17293  822569 10270464*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(548568674633. *R.A38*SA2*ZA36*(S_v5)A2)/... 

(1 10680464442257309696*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(1 805.  *R.A38.*R.*ZA2*SA2*ZA36*(S_v5)A2)/(69 17529027641 08 1856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(294785.  *R.A39.*R.*Z*SA2*ZA37*(S_v5)A2)/(  13  835058055282 163  7 12*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(10322387501. *R.A40*SA2*ZA38*(S_v5)A2)/... 

(13  8350580552821 63  712*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(25.  *R.A40.*R.*ZA2*SA2*ZA38*(S_v5)A2)/(69 17529027641 08 1856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

(32965.  *R.A41.*R.*Z*SA2*ZA39*(S_v5)A2)/(55340232221128654848*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(1462601471251. *R.A42*SA2*ZA40*(S_v5)A2)/... 

(14 16709944860893564 1088*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(7.  *R.A42.*R.*ZA2*SA2*ZA40*(S_v5)A2)/(295 147905 179352825856*(1  +  ZA2/4  +  ZA4/64)A4)  +  ... 

( 1 5635.  *R.  A43.  *R.*Z*SA2*ZA41*(S_v5)A2)/(  1328 1 655733070877 16352*(1  +  ZA2/4  +  ZA4/64)A4)  + 
(185335180013. *R.A44*SA2*ZA42*(S_v5)A2)/... 

(141 6709944860893564 1088*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(31 15.*R.A45.*R.*Z*SA2*ZA43*(S_v5)A2)/(21250649172913403461632*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(2057042720599.  *R.A46*SA2*ZA44*(S_v5)A2)/(  1 36004 1547066457821 544448*(1  +  ZA2/4  +  ZA4/64)A4) 
+  ... 

(49.*R.A47.*R.*Z*SA2*ZA45*(S_v5)A2)/(56668397794435742564352*(l  +  ZA2/4  +  ZA4/64)A4)  + 

(24026340573. *R.A48*SA2*ZA46*(S_v5)A2)/... 

(151 11572745 1828646838272*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(5273670271697.*R.A50*SA2*ZA48*(S_v5)A2)/(348170636049013202315378688*(l  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(37823055319.*R.A52*SA2*ZA50*(S_v5)A2)/(29014219670751 100192948224*(1  +  ZA2/4  +  ZA4/64)A4)  + 

(3 1266829573.  *R.A54*SA2*ZA52*(S_v5)A2)/(30948500982 1 34506872478 1056*(1  +  ZA2/4  +  ZA4/64)A4) 
+  ... 

(305764487.*R.A56*SA2*ZA54*(S_v5)A2)/(43521329506126650289422336*(l  +  ZA2/4  +  ZA4/64)A4)  +  ... 
(15567 1 821505.  *R.A58*SA2*ZA56*(S_v5)A2 )/(35652673 13 14 1895 19 1709477765 12*(1  +  ZA2/4  + 
ZA4/64)A4)  +... 

(8605263625. *R.A60*SA2*ZA58*(S_v5)A2)/(356526731314189519170947776512*(l  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(44870 15 167.*R.A62*SA2*ZA60*(S_v5)A2 )/(380295 1800684688204490 1096 16128*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(64 197 1 3  l.*R.A64*SA2*ZA62*(S_v5)A2)/(  126765060022822940 1 4967032053  76*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(7366421503. *R.A66*SA2*ZA64*(S_v5)A2)/(3894222643901120721397872246915072*(l  +  ZA2/4  + 
ZA4/64)A4)  +... 

(1 18374655. *R.A68*SA2*ZA66*(S_v5)A2)/(1947111321950560360698936123457536*(l  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

( 10321 7975.  *R.A70*SA2*ZA68*(S_v5)A2)/(623075623024 1793 1 54236595595064 1 152*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 

(1 169089.  *R.A72*SA2*ZA70*(S_v5)A2)/(31 15378 115 120896577 1182977975320576*(1  +  ZA2/4  + 

ZA4/64)A4)  +  ... 
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( 16453  71 5.  *R.A74*SA2*ZA72*(S_v5)A2)/(23926 1 03924 1 284857 12268527085046202368*(1 
ZA4/64)A4)  +... 

(234365. *R.A76*SA2*ZA74*(S_v5)A2)/(23926103924128485712268527085046202368*(l 
ZA4/64)A4)  +  ... 

(77905.*R.A78*SA2*ZA76*(S_v5)A2)/(7656353255721 1 154279259286672 1478475776*(1 
ZA4/64)A4)  +  ... 

(175.*R.A80*SA2*ZA78*(S_v5)A2)/(25521 1775 190703  847597530955573  8261 58592*(  1 

ZA4/64)A4)  +  ... 

(49.  *R.A82*SA2*ZA80*(S_v5)A2)/(2 177807 148294006 166 1 655974875633 1 65533 184*(1  4 

ZA4/64)A4); 


Ns5=Nf5+Nc+Nr5; 

Phi5=Nf5  ,/[Nc+Nr5] ; 

Be5=l./[1+Phi5]; 

Gf5=Nf5./Ns5; 

Gr5=[Nr5]./Ns5; 

Nh5=Nc+Nr5; 


plot(R,Nsl,'b',R,Ns2,'g',R,Ns3,'r',R,Ns4,'k',R,Ns5,'m') 

%  plot(R,Bel,'b',R,Be2,'g',R,Be3,'r',R,Be4,'k',R,Be5,'m') 

%  plot(R,Phil,'b',R,Phi2,'g',R,Phi3,'r',R,Phi4,'k',R,Phi5,'m') 
%  plot(R,Gfl,'b',R,Gf2,'g',R,Gf3,'r',R,Gf4,'k',R,Gf5,'m') 

%  plot(R,Grl,'b',R,Gr2,'g',R,Gr3,'r',R,Gr4,'k',R,Gr5,'m') 

%  plot(R,Nfl,'b',R,Nf2,'g',R,NG,'r',R,Nf4,'k',R,Nf5,'m') 

%  plot(R,Nhl,'b',R,Nh2,'g',R,Nh3,'r',R,Nh4,'k',R,Nh5,'m') 

PLOTTOOLS  ON 


+  ZA2/4  + 
ZA2/4  + 
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ZA2/4  + 
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